1.'题目：求A,B,C三个数的最大值。 Private Sub Command1_Click() A = Val(Text1.Text)
'**********SPACE********** 【?
b=Val(Text2.Text)】
c = Val(Text3.Text) If A > b And A > c Then maxdate = A
'**********SPACE********** ElseIf 【?
if b>A and C】 Then
maxdate = b Else
'**********SPACE********** 【?
maxdate=c】
End If
Label1.Caption = maxdate & \是最大值\End Sub
'学生的某次课程测验中，选择题的答案已记录在列表框List1中，其数据行格式是：学号为6个字符长度、2个空格、选择题的答案为15个字符长度。程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框List2中。标准答案存入在变量Exact中。 Option Explicit
Private Sub Command1_Click()
Dim Anw As String, StudId As String Dim Scor As Integer, Exact As String Dim I As Integer, J As Integer
Exact = \ '标准答案 '**********SPACE********** For I =
0 To List1.ListCount - 1 List1.List(I)
'**********SPACE********** Anw =
StudId = Left(Anw, 6)
Anw = Right(Anw, Len(Anw) - 8) '**********SPACE**********
Scor = 0
For J = 1 To Len(Anw) '**********SPACE**********
If Mid(Anw, J, 1) = Mid(Exact, J, 1) Then Scor = Scor + 1
End If Next J
List2.AddItem StudId & \ \ Next I End Sub
''以下程序段采用冒泡法对数组元素进行排序。 Option Base 1
Private Sub Command1_Click() Dim iA(1 To 10) n = 6
iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7 Print \冒泡法排序数据变化过程\ Print \ 8, 6, 9, 3, 2, 7\ Print \ '**********SPACE********** For i = 1 To 【?
Mid(Anw,J,1)=Mid(exact,j,1)】
'**********SPACE********** For j = n To 【?
n-1】 Step -1
If iA(j) < iA(j - 1) Then t = iA(j)
iA(j) = iA(j - 1)
'**********SPACE********** iA(j - 1) = 【?
-1+n】
End If Next j
Print \ For k = i To n Print iA(k); Next k Print Next i End Sub
以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换 'Private Sub Form_Click() Const n = 3 Const m = 4
Dim a(n, m) As Integer, b(m, m) As Integer For I = 1 To n For j = 1 To m
a(I, j) = Int(Rnd * 90) + 10
Step 1
Next j
'**********SPACE********** 【?
Next i】
For I = 1 To n For j = 1 To m
'**********SPACE********** 【?
b(j,i)=a(i,j)】
Next j Next I
Print \矩阵转置前\For I = 1 To n For j = 1 To m Print a(I, j); Next j
'**********SPACE********** 【?
print】
Next I
Print \矩阵转置后\For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub
'【程序填空】
'如图所示：有10辆车，键盘上输入车型、车的颜色、车号，把车 ' 号尾数为5的车挑选出来。当车型输入为-1时，停止输 ' 入?请完善程序? Private Sub Command1_Click()
Print \车牌号最末位为5的车是：\ Print \车型\颜色\车号\ Do
a = InputBox(\请输入车型\ '**********SPACE********** If Val(a) = -1 Then 【?
Exit do】
b = InputBox(\请输入车的颜色\ c = InputBox(\请输入车号\ '**********SPACE********** If 【?
Right(c,1)=5】 Then
Print a, b, c End If Loop End Sub
'题目：程序功能是在文本框中加入一个整数n（例如30）， ' 单击命令按钮，则在列表框中追加若干数字，
' 所有追加的数字按以下规律排列：每个数是前面2个数之和，
' 最后1个数是满足上述规律的最大的小于n的数。如样张里的图1所示。 ' 若再输入一个更大的整数（例如100），
' 单击命令按钮，则按上述规律继续追加数字。如样张里的图2所示。 Private Sub Command1_Click() Dim a%, b%, c%, n% n = Val(Text1.Text)
'**********SPACE********** a = Val(【?
List1.List(ListCount-2)】)
b = Val(List1.List(List1.ListCount - 1)) c = a + b
Do While c < n
'**********SPACE********** a = 【?
b】
c
b = c
'**********SPACE********** List1.AddItem 【?】 c = a + b Loop End Sub
Private Sub Form_Load() End Sub
'题目：单击窗体打印内容如图 '请在【?】处填入正确的内容 Private Sub Form_Click()
Dim i As Integer, j As Integer Dim star As String
'**********SPACE********** 【?
star】 = \
6-i】 To 6
For i = 0 To 6
'**********SPACE********** For j = 【?
'**********SPACE**********
Form1.Print star【?】
Next j
Form1.Print Next i End Sub
'输入一个数,若大于0,则显示\；若小于0，则显示 \；若等于\则显示\零\。 'Private Sub Command1_Click() x = Val(Text1.Text) Select Case x
'**********SPACE********** 【?
;
Case Is>0】
Label1.Caption = \ Case Is < 0
'**********SPACE********** 【?
Labe1.Caption=”-”】 Case 0】
'**********SPACE********** 【?
Label1.Caption = \零\ End Select End Sub
题目：已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，
' 具体处理方式为：15公里以内每公里加收1.2元，15公里以上每公里收1.8元。 ' 程序的功能是：单击\输入\按钮，将弹出一个输入对话框，接收出租车行驶的里程数； ' 单击\计算\按钮，则可根据输入的里程数计算应付的出租车费， ' 并将计算结果在名称为Text1的文本框内显示。 'Dim s As Integer
Private Sub Command1_Click()
s = Val(InputBox(\输入里程数（单位：公里）\End Sub
Private Sub Command2_Click() If s > 0 Then
Select Case s
Case Is <= 4
'**********SPACE********** 【?
f=10】
(s-4)*1.2】
Case Is <= 15
'**********SPACE********** f = 10 + 【?