全球第4大洋酒公司:求做题 紧急

28. 设有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的____语句可以使文本框内显示的内容为：5+7=12。
A. text1.text=a+b=c B. text1.text="a+b=c"
C. text1.text=a & "+" & b & "=" & c D. text1.text="a"&"+"&"b"&"="&"c"
29. 下列关于数组的叙述中，错误的是___27___。
A. 在过程中可以用DIM语句对形参数组进行说明
B. 数组是同类变量的一个有序的集合
C. 数组元素可以是控件
C. 数组在使用之前，必须先用数组说明语句进行说明
30. 执行以下语句后,a的值为___33___。
Dim a As Integer
a=1
Do Until a=100
a=a+2
Loop
A. 99 B. 100 C. 溢出 D. 101
1 、一个工程可以包括多种类型的文件，其中，扩展名为 .VBP 的文件表示 【 1 】 文件；扩展名为 .FRM 的文件表示窗体文件；
2 、在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox( “ 请输入一个整数 ” )
b = InputBox( “ 请输入一个整数 ” )
Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入 321 和 456 ，输出结果为 ___ 【 2 】 __ 。
3、下面的程序用于求三个数中最大数。
Private Sub Command1_Click()
a=Val(inputbox( “请输入第一个数： ” ))
b=Val(inputbox( “ 请输入第二个数： ” )
c=Val(inputbox( “请输入第三个数： ” ))
Max=a
Min=a
IF b>Mam Then ___ 【 3 】 ___
IF __ 【 4 】 ____Then Min=b
IF ___ 【 5 】 ____ Then Max=c
IF c< Min="c" Then>
Print “最大数为： ”； Max
Print “最小数为：” ； Min
Ene Sub
4 、下面是一个体操评分程序， 30 位评委，除去一个最高分和一个最低分，计算平均分 ( 设满分为 10 分 ) 。
Private Sub Command1_Click()
Max=0
Min=10
For I=1 TO 20
N=Val(InputBox( “ 请输入分数： ” ))
IF ____ 【 6 】 _______Then Max=N
IF ____ 【 7 】 ______Then Min=N
S=S+N
Next I
S=____ 【 8 】 ______
P=S/18
Print- 最高分： - ； Max
Print- 最低分： - ； Min
Print- 最后得分： - ； P
END Sub.
5 、以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的
数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
S=0
Fori ＝ 1To 20
Randomize
x ＝ Int(__ 【 9 】 __+200)
If__ 【 10 】 _ ＝ 0 Then
Print x
S ＝ __ 【 11 】 _
End If
Next i
Print “ Sum ＝”： S
End Sub
6. 执行下面的程序，单击窗体后在窗体上显示的内容是【 12 】；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是【 13 】。
Option Explicit
Private Sub Form_Click()
Dim Sum As integer,i As Integer
For i=7 To 4 Step -1
Select Case i
Case 4,7
Sum=Sum+i 'A语句
Case 3,5
Sum=Sum+2 'B语句
Case Else
Sum=Sum+1
End Select
Next i
Print "Sum=";Sum
End Sub