的圆。
Private Sub Form_MouseDown ( Button, Shift, X, Y ) Circle (X，Y)， ， End Sub 300,vbblue
26．按鼠标左键点击窗体，以点击点为圆心，以小于50的随机数为半径，画出一个圆形。
Private Sub Form_MouseDown(Button, Shift, X, Y ) If Button = Then R = Int (Rnd * )
Circle ( , ), R
End If End Sub 1,50,x,y 28．执行语句Line(100,100)-Step(50,100)后，CurrentX的值为 。 150
五、分析程序 ，选择运行结果
4．运行程序，显示的结果是 Private Sub Form_Click ( C) For k = 1 To 7
For j = 1 To 7
If k < j Then Print 1; Else Print 0; Next j Print Nextk End Sub
A．
B． C． D．
9. 运行程序时，单击命令按钮，则标签中显示的值是（ D） Private Sub Command1_Click() Dim i As Integer,n As Integer (A) 3 (B) 4 For i=0 To 50
(C) 5 (D) 6 i=i+3
n=n+1
If i>20 Then exit for Next
Label1.caption=Str(n) End Sub
14．运行下列程序，单击命令按钮Command1，在窗体上输出的结果是
（ D ）
Private Sub Command1_Click() For K = 1 To 4 For N = 0 To K
(B) (C) (D) Print Chr(65 + (A) K);
Next N A AA B BB Print
BB BBB CC CCC Next K
End Sub CCC CCCC DDD DDDD
DDDD DDDDD EEEE EEEEE 击窗体后，17．执行下面程序，单
窗体上显示的内容是（ D ）
Private Sub Form_Click() Dim a
a = Array(\Print a(5), LBound(a), UBound(a) End Sub A．Fri 1 7 B．Fri 0 6 C．Sat 1 7 D．Sat 0 6
22．下面程序运行后，窗体上显示的内容是（ D ） Private Sub Form_Click() Dim a(2, 3) As Integer （A）5 （B）4 （C）3 For i = 1 To 2
（D）出错 For j = 1 To 3 a(i, j) = i + j Next j Next i
Print a(i, j) End Sub
28.运行下列程序，图片框Picture1中显示的内容为（ A ）。 Private Sub Timer1_Timer() Dim i As Long Picture1.Cls Private Sub Form_Load() x = Picture1.ScaleWidth \\ 2 Timer1.Enabled = True y = Picture1.ScaleHeight Timer1.Interval = 50 - i + 1000 Picture1.Circle (x, y), End Sub 500 i = i + 10 End Sub A．一个圆形从Picture1的底边出现，逐渐上移并最终消失在Picture1的顶部边缘
B．一个圆形从Picture1的顶边出现，逐渐下移并最终消失在Picture1的底部边缘
C．一个圆形从Picture1的左边出现，逐渐右移并最终消失在Picture1的右边
D．一个圆形从Picture1的右边出现，逐渐右移并最终消失在Picture1的左边
29． 下面程序运行后输出的图形是（ C ）
Private Sub Form_Click()
Const angle = 3.14159 / 180 For I = 0 To 360 Step 30
X1 = 1000 + 900 * Cos(angle * I) Y1 = 1000 + 900 * Sin(angle * I) X2 = 1000 + 500 * Cos(angle * I) Y2 = 1000 + 500 * Sin(angle * I) Line (X1, Y1)-(X2, Y2) Circle (1000, 1000), 480 Next I End Sub （A）
（B）
（C）
（D）
六、设计程序题（每题10分）
2．在文本框中输入一个长数字串，单击“统计出现次数”按钮后，统计出现次数最多的数字及出现次数，并在标签Label1中显示结果。 Private Sub Command1_Click()
Dim t As String, s As Integer, c As String, n As Integer t = Text1.Text s = Len(t) For i = 1 To s c = Mid(t, i, 1)
If Asc(c) >= 48 And Asc(c) <= 57 Then n = n + 1 End If Next i
Label1.Caption = n End Sub
7． 产生随机数并找出其中的最大值和最小值。按命令按钮Command1，产生10个1000以内的随机正整数，显示在窗体上，找出其中的最大值和最小值，分别显示在标签Label1和Label2中。按命令按钮Command2结束程序运行。 Private Sub Command1_Click()
Dim a(1 To 10) As Integer, min As Integer, max As Integer