Imports System.TimeSpan
Public Class MyTimespan
    Public Days As Integer
    Public dTime1 As Date
    Public dTime2 As Date
    Public Hours As Long
    Public Minutes As Long
    Public Seconds As Long
    Public Sub SetTimeCha()
        Dim d1 As New DateTime(dTime1.Ticks)
        Dim d2 As New DateTime(dTime2.Ticks)
        Dim ts1 As New TimeSpan(d1.Ticks)
......................

Public Function ShowDir(MehWnd As Long, DirPath As String, Optional Title As String = "请选择文件夹：", Optional flage As Long = &H1, Optional DirID As Long) As Long
          Dim BI     As BROWSEINFO
          Dim TempID     As Long
          Dim TempStr     As String
            
          TempStr = String$(255, Chr$(0))
          With BI
             .hOwner = MehWnd
             .pidlRoot = 0
             .lpszTitle = Title + Chr$(0)
             .ulFlage = flage
          End With
......................

Option Explicit


Public Matlab As Object
Dim mreal(0, O) As Double
Dim minnag(0, 0) As Double
Private Sub Form_Initialize()
Set Matlab = CreateObject("matlab.application")
End Sub
'创建MATLAB的实例，初始化以及定义变量
Private Sub Commandl_Click()
'按下Command按钮后
......................

#include <stdio.h>
struct Student
 {
  int num;
  char name[20];
  float score[3];
  float aver;
 };//这里要分号的  把这个结构体放到main函数之前
int main()
{
 void input(Student stu[]);//这3行放到结构体Student后面  且可以不加关键词struct 
 Student max(Student stu[]);
......................

VB6.0 读取文本第二行的信息


Private Sub Form_Load()
Dim s1 As String
Dim s2 As String
Open "d:\data.txt" For Input As #1
Line Input #1, s1
Line Input #1, s2
Label1.Caption = s2
Close #1
End Sub

'Data为字符型数组 start为开始点 size 为几个,返回的即为 CRC
Public Function CRC16(Data() As Byte, start As Integer, size As Integer) As Long
    Dim CRC16Lo     As Byte, CRC16Hi       As Byte        'CRC寄存器
    Dim CL     As Byte, CH       As Byte                  '多项式码&HA001
    Dim SaveHi     As Byte, SaveLo       As Byte
    Dim i     As Integer
    Dim Flag     As Integer
    CRC16Lo = &HFF
    CRC16Hi = &HFF
    CL = &H1
    CH = &HA0
    For i = 0 To size - 1
......................

Private Sub Command1_Click()
 Dim InDatExcel As Excel.Application  
 Dim InDatBook As Excel.Workbook 
 Dim InDatSheet As Excel.Worksheet
  CMDialog.CancelError = True                   
  On Error GoTo ErrorLine                                   
  CMDialog.FileName = "" '
  CMDialog.Flags = 4096                                         
  CMDialog.Filter = "Data File(*.xls)|*.xls"                  
  CMDialog.FilterIndex = 1       
  CMDialog.DialogTitle = "选取要导入的数据文件(*.xls)"         
  CMDialog.Action = 1                                        
......................

使用输入框输入N的值，当N为奇数时求1+2+3+......+N；当N为偶数时求2+4+6+8+.....+N;结果用消息框提示，VBA编程

’用vb6写的，一个Frm_Main窗口一个ListView控件一个Timer控件
’Frm_Main代码
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
  heaphwd = GetProcessHeap() '获取调用过程堆句柄
End Sub

Private Sub Timer1_Timer()
 Dim ret As Boolean
    On Error Resume Next
    ret = InternetGetConnectedState(0, 0)
    If ret Then
        GetNetState
......................

Dim i As Long
Dim temp As String

i = 0

Open App.Path & "test.txt" For Input As #1     '读取txt文件中的内容

Do While Not EOF(1)

Line Input #1, temp
i = i + 1
For j = 1 To Len(temp)          '测试一行内所有数据
......................