A）10 5 B）12 5 C）10 7 D）12 7
75、 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按
钮，然后编写如下事件过程：
Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0
Do While x<20
x=x*2 n=n+1 Loop
Text1.Text=Str(x)
Text2.Text=Str(n) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是（ ）。 A）2 2
B）8 2 C）32 5 D）16 4
76、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click() Dim a
a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是 A）4 B）5 C）6 D）7
77、阅读程序：
Option Base 1
Private Sub Form_Click() Dim arr, Sum Sum=0
arr=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10
If arr(i)/3=arr(i)＼3 Then Sum=Sum+arr(i)
End If Next i Print Sum End Sub
程序运行后，单击窗体，输出结果为
A）13 B）14 C）27 D）15
78、 在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2 的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Commandl_Click() x＝5：y＝3 Call proc(x,y)
LabeL1．Caption＝x LabeL2．Caption＝y End Sub
Private Sub proc(ByVal a As Integer，ByVal b As Integer) x＝a* a y=b十b End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。 A）25 3 B）25 9 C）5 3 D）5 9
79、在窗体上画一个名称为Label1、标题为\考试\的标签，两个名称分别为Command1和Command2、标题分别为\开始\和\停止\的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序：
Private Sub Form_Load() Timer1.Enabled=false End Sub
Private Sub Command1_Click() Timer1.Enabled=True End Sub
Private Sub Timer1_Timer()
If Label1.Left Label1.Left=0 End If End Sub 程序运行后单击\开始\按钮，标签在窗体中移动。 对于这个程序，以下叙述中错误的是 A）标签的移动方向为自右向左 B）单击\停止\按钮后再单击\开始\按钮，标签从停止的位置继续移动 C）当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D）标签按指定的时间间隔移动 80、执行以下程序段 A$=\For i=6 To 2 Step-2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=Ucase(X & Y & z) Next i Print z 输出结果为 A）ABA B）BBABBA C）ABBABA D）AABAAB 81、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是 A）1 2 B）1 2 3 C）3 4 5 D）4 5 编程题（40题） 1、在文本框Text1中输入一个正整数N，按“计算”命令按钮Command1，产生N个0 ~ 100之间的随机整数，计算这N个随机整数的平均数，显示在标签Label1中。 将编写的程序存盘，工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm。 （当N足够大时，该平均值应趋向于50）。 Ex12nnnn.Vbp Ex12nnnn.Frm Private Sub Command1_Click ( ) N = Val (Text1.Text) Sum = 0 For k = 1 To N V = Int ( Rnd * 101 ) Sum = Sum + V Next k Label1.Caption = Sum / N End Sub 2、在文本框Text1中输入一正整数N，按“计算”命令按钮Command1，计算该数的阶乘N!，结果显示在标签框Label1中。按“结束”命令按钮Command2 结束程序。 Private Sub Command1_Click（） Private Sub Command2_Click（） N = Val (Text1.Text) End P = 1 End Sub For k = 1 To N P = P * k Next k Label1= P End Sub 3、 在文本框 Text1中输入一个字符串，按“排列”按钮 Command1， 将输入字符串中每 两个相邻的字符之间插入一个空格，结果显示在标签框Label1 中。按“结束”命令按钮Command2结束程序。 Private Sub Command1_Click（） Private Sub Command2_Click（） X = Text1.Text End L = Len (X) End Sub W = “” For k = 1 To L-1 V = Mid (X, k, 1) W = W + V + “ ” Next k W = W + Right (X,1) Label1.Caption = W End Sub 4、编写程序，从键盘输入任一x的值，求分段函数的值（可用InputBox函数）。 ?2x?Y??0?x?Private Sub Form_Click() Dim x As Double, y As Double x = Val(InputBox(\ If x > 0 Then y = 2 * x ElseIf x < 0 Then y = Abs(x) Else y = 0 End If Print y End Sub x?0x?0 x?0 5、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将数组A各个元素显示在窗体上，然后，找出数组A中所有的偶数输出到窗体上。（ Int(Rnd*90)+10 ）。 Private Sub Command1_Click() Dim a%(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 10 If a(i) Mod 2 = 0 Then Print a(i); Next i End Sub 6、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将其在窗体上按从小到大的顺序显示成一行。（ Int(Rnd*90)+10 ） Private Sub Command1_Click() Dim a%(1 To 10) For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 9 For j = i + 1 To 10