修改时间:2024-07-12 浏览次数:224 类型:高考模拟
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) =
If Then
List1.AddItem Str(a(i))
Else
End If
Next i
End Sub
1图
2图
自上而下两个文本框的名称分别是Text1和Text2,“开始”按钮的名称是Command1。在Text1
中输入数据,单击“开始”按钮,在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如右图所示。请根据流程图将下列程序补充完整
Private Sub Command1_Click( )
Dim n As Integer, m As Integer, i As Integer
Dim x As Single, y As Single
n =
m=0
Randomize ′初始化Rnd函数
For i = 1 To n
x = Rnd ′随机产生x坐标,0≤x<1
y = Rnd ′随机产生y坐标,0≤y<1
Next i
Text2.Text = Str(m)
End Sub
图1
图2
程序代码如下:
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
For i = 3 To 97 ___①___ If f(i) And ② Then List1.AddItem Str(i) + " 和 " + Str(i + 2) End If Next i |
End Sub
Private Function f(x As Integer) As Boolean '自定义函数f,返回值为逻辑型
Dim j As Integer
f = True
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
f = ③ '函数返回值
Exit For '跳出For循环
End If
Next j
End Function
程序中①划线处应填入
程序中②划线处应填入
程序中③划线处应填入
试题篮