填空题

阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。

【参考答案】

41
<上一题 目录 下一题>
热门 试题

填空题
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = Text2.Text = End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入1234和4321，然后单击命令按钮，则输出结果为 【8】 。
填空题
下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2 If 【9】 Then Print i, i + 2 End If Next i End Sub Public Funtion Prime (ByVal n As Integer) As Boolean Dim i as Integer For i = 2 To n - 1 If 【10】 Then Exit For End If Next i If i = n Then Prime = True Else Prime = False End If End Function
相关试题