?????
?
?
Private
?
?
End
Sub ?
End
Text1_
【
Command1.Enabled=False
Sub
4
】
（
）
Command1.Enabled=True
Sub
(3) 已知程序运行的结果为如下二维数组，请填空。 1 0 0 0 0 1 1 0 0 1 1 0 1 0 0 1
Private Sub Command1_Click() Dim a(4,4)
For i = 1 To 4方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 ?Private Sub Command1_Click（） ??Dim str As String, s As String, c As String ?? str = UCase（Text1） ?? s = \?? c = \
??Do While c >= \?? If InStr（str, c） = 0 Then ?? s = 【8】 ?? End If
?? c = Chr$（Asc（c） 【9】 ） ??Loop
??If s <> \?? Text1 = s ??End If ?End Sub
(5) 下面的程序用于求三个数中最大数。 Private Sub Command1_Click() a=Val(inputbox(\请输入第一个数：\b=Val(inputbox(\请输入第二个数：\c=Val(inputbox(\请输入第三个数：\
26
Max=a Min=a
IF b>【10】Then Max=b IF b<【11】 Then Min=b IF【12】Then Min=c IF【13】Then Max=c Print\最大数为：\；Max Print\最小数为：\；Min Ene Sub
（9）设置对象属性中的Caption是指【14】，Font是指【15】。 三、编程题（20分）
设计以一个vb程序在列表框中打印出3~100之间的所有素数（质数）。 要求：1、单击“判断”按钮时进行素数的求解； 2、所有的素数必须显示在列表框中； 3、单击“退出”按钮时结束程序的运行； For j = 1 To 4 If 【5】 Then a(i,j) = 1 Else 【6】 End if Next j Next i
For i = 1 To 4 For j = 【7】 Print a(i,j); Next j Print Next i End Sub
(4) 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写
27
一、选择题 （1）C （6）C （11）D （16）C （21）D 二、填空题
（1）i mod 2<>0 （2）j=1 to 13 （3）j mod 2<>0 （4）change （5）i+j=5 and i<>1 or i=j
（6）a（i,j）=0 （7）1 to 4 （8）s & c （9）-1 （10）Max （11）Min （12）c
Private Sub Command1_Click() For i = 3 To 100 For j = 2 To i - 1
If i Mod j = 0 Then Exit For Next j
If j > i - 1 Then List1.AddItem i Next i End Sub
Private Sub Command2_Click() End End Sub
Private Sub Form_Load() Command1.Caption = \判断\Command2.Caption = \退出\End Sub
（2）A （7）A （12）D （17）A （22）A
（3）B （8）D （13）B （18）B （23）A
（4）C （9）B （14）D （19）B （24）C
（5）C （10）B （15）C （20）A （25）A
28
29