count = 0 For t1 = 3 To 100
'**********SPACE********** flag = 【?】
For t2 = 2 To Int(Sqr(t1))
If t1 Mod t2 = 0 Then flag = False Next t2 If flag Then
'**********SPACE********** count = 【?】 Write #1, t1 End If Next t1
Form1.Print \素数个数\ Close #1 End Sub 答案： 1). #1 2). True
3). count + 1 或 1 + count 〖第52题〗『程序填空』(1分)(题号:58) '【程序填空】
题目：代码功能：求A,B,C三个数的最大值。Private Sub Command1_Click() A = Val(Text1.Text)
'**********SPACE********** 【?】
C = Val(Text2.Text) If A > B And A > C Then MAXDATE = A '**********SPACE********** ElseIf 【?】 Then MAXDATE = B Else
'**********SPACE********** 【?】 End If
Label1.Caption = MAXDATE End Sub 答案：
1). B = Val(Text2.Text) 2). B> C 或 C
〖第53题〗『程序填空』(1分)(题号:524)
Option Explicit '【程序填空】
'题目：下面是一个体操评分程序，10位评委，除去一个最
' 高分和一个最低分，计算平均分 (设满分为 10 分) 。
请在【】处填入正确的内容 'Private Sub Command1_Click()
Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer
'**********SPACE********** 【?】 Min = 10 For i = 1 To 10
n = Val(InputBox(\ 请输入分数： \ '**********SPACE********** If n > Max Then【?】 If n < Min Then Min = n s = s + n Next i
'**********SPACE********** s = s - Max 【?】 p = s / 8
Print \最高分 ：\ Print \最低分 ：\ Print \最后得分：\End Sub 答案：
1). Max = 0 2). Max = n 3). - Min
〖第54题〗『程序填空』(1分)(题号:502) '【程序填空】
'题目：用输入对话框输入x , 根据如图公式计算对应的y,
' 并在窗体上输出y的值? '请在【】处填入正确的内容 'Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE**********
x = Val(【?】(\输入X的值\
If x = 10 Then
'**********SPACE********** 【?】
ElseIf x > 10 Then
'**********SPACE********** y = Sqr(x) 【?】 Else
y = 2 * x ^ 3 + 6 End If Print y End Sub 答案： 1). y 2). InputBox 3). y = 0 4). + Sin(x)
〖第55题〗『程序填空』(1分)(题号:517) '【程序填空】
'题目： 用户单击命令按钮后，程序将文本框Text1中的文本反转显示，
' 同时在文本框Text2中显示文本框Text1框中字符串的个数?
' 设在一个窗体中已经设置了二个文本框Text1和Text2，
' 以及一个命令按钮，且设计有下列程序，请指出程序的功能。 '请在【】处填入正确的内容 'Private Sub Command1_Click() If Text1.Text = \ Exit Sub Text2.Text = 0 Else
'**********SPACE********** Text1.Text = MyFun(【?】) End If End Sub
Private Sub Form_Load() Text1.Text = \ Text2.Text = 0 End Sub
Private Function MyFun(s1 As String) As String Dim Pos As Integer Dim Str1 As String
Dim intC As Integer Const Sp As String = \ '**********SPACE********** Pos = Len(【?】) For intC = Pos To 1 Step -1 Str1 = Str1 & Mid(s1, intC, 1) Next intC
'**********SPACE********** MyFun = 【?】 Text2.Text = Pos End Function 答案：
1). (Text1.Text 或 (Text1 2). s1 3). Str1
〖第56题〗『程序填空』(1分)(题号:525) '【程序填空】
'题目：在窗体上画一个标签（名称为 Label1 ）和一个
' 计时器（名称为 Timer1 ），然后编写如下几个事件过程：
' 要求：每一秒钟Label1更新显示一次系统时间
请在【】处填入正确的内容 'Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 End Sub
Private Sub Form_Click()
'**********SPACE********** Timer1.Enabled = 【?】 End Sub
Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub 答案： 1). 1000 2). True 3). Now
〖第57题〗『程序填空』(1分)(题号:519) '【程序填空】
'题目：该程序通过For循环计算一个表达式的值，
这个表达式是
' 1/2+2/3+3/4+4/5 '请在【】处填入正确的内容 'Private Sub Command1_Click() '**********SPACE********** Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer
'**********SPACE********** sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1
'**********SPACE********** sum = 【?】 Next
Form1.Print sum End Sub 答案： 1). sum 2). 0
3). sum + x 或 x + sum
〖第58题〗『程序填空』(1分)(题号:536) '【程序填空】
'-------------------------------------------------------
'题目：程序功能：在Text1，Text2，Text3中分别输入三个数字，
' 在Text4中计算这三个数的和。如果三个文本框的输入不
' 为数字则显示错误提示
'请在【】处填入正确的内容
'------------------------------------------------------- '
Private Sub Command1_Click()
Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text)
'**********SPACE********** If 【?】 And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else
Text4.Text = \存在非数字字符\ End If End Sub
Function che(x As String) As Boolean '若存在非数字字符，函数值为假 Dim k As Integer Dim s As String
'**********SPACE********** 【?】
For k = 1 To Len(x) s = Mid(x, k, 1)
'**********SPACE********** If s < \【?】 Then che = False Exit For End If Next k End Function 答案：
1). che(a) 2). che = True 3). \
〖第59题〗『程序填空』(1分)(题号:42)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：以下程序段利用随机函数生成15个10-100之间的整数，
然后用选择法将其从小到大排序。
'-------------------------------------------------------
Private Sub Form_Click() Const n = 15
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, t As Integer, min As Integer Randomize For i = 1 To n
'**********SPACE********** a(i) =【?】 Next i For i = 1 To n Print a(i); Next i Print
For i = 1 To n - 1
'**********SPACE********** 【?】 For j = i + 1 To n If a(j) < a(t) Then t = j Next j
'**********SPACE********** If 【?】 Then
min = a(i): a(i) = a(t): a(t) = min End If Next i For i = 1 To n Print a(i); Next i End Sub 答案：
1). Int(★100★ *★ Rnd★)★ +★ 10 2). t=i 3). t★ <> ★I
〖第60题〗『程序填空』(1分)(题号:505)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：单击窗体打印内容如图
'请在【】处填入正确的内容
'------------------------------------------------------- '
Private Sub Form_Click()
Dim i As Integer, j As Integer Dim star As String
'**********SPACE********** 【?】 = \ For i = 0 To 6
'**********SPACE********** For j = 【?】 To 6
'**********SPACE********** Form1.Print star【?】 Next j Form1.Print Next i End Sub 答案： 1). star 2). 6 - i 3). ;
〖第61题〗『程序填空』(1分)(题号:512)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：写出程序运行时单击窗体后，Form1上的输出结果
' n=1 z=4 ' n=2 z=7 ' n=3 z=10
'请在【】处填入正确的内容
'------------------------------------------------------- '
Private Sub Form_Click()
Dim a As Integer, b As Integer, z As Integer '**********SPACE********** Dim 【?】 As Integer a = 1
'**********SPACE********** b = 【?】
'**********SPACE********** For n = 【?】 To 3 z = chg(a, b)
Form1.Print \ Next n End Sub
Function chg(a As Integer, b As Integer) As Integer Dim n As Integer For n = 0 To 2 a = a + b Next n chg = a End Function 答案：
1). Dim n 2). 1 3). 1
〖第62题〗『程序填空』(1分)(题号:521)
'------------------------------------------------------- '【程序填空】
'-------------------------------------------------------
'题目：下面的事件过程判断文本框Text1中输入的数所在区间，
' 并在文本框Text2中输出判断结果
'请在【】处填入正确的内容
'------------------------------------------------------- '
Private Sub Command1_Click()
Dim int1 As Integer
'**********SPACE********** 【?】 = Val(Text1.Text) Select Case int1 Case 0
Text2.Text = \值为0\ '**********SPACE********** Case 【?】
Text2.Text = \值在1和10之间（包括1和10）\
Case Is > 【?】
Text2.Text = \值大于10\ Case Else
'**********SPACE********** Text2.Text = \值小于0\ End Select End Sub 答案： 1). int1 2). 1 To 10 3). 10
〖第63题〗『程序填空』(1分)(题号:535)
'-------------------------------------------------------