填空题

以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以 5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
Private Sub Command1_Click()
x=Val(Text1.Text)
IfThen
Print x
Else

Text1.Text=""
End If
End Sub

【参考答案】

x Mod 4=1 And x Med 5=2；Tex1.SetFocus

<上一题目录下一题>

热门试题

填空题

在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。 Sub SORT( ) Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox( ，，0)) Next i For i=______ k=i For j=______ If a(k)＞a(j)Then______ If k＜＞i Then b＝a(k) a(k)＝a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub

填空题

在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_ Click() Dim arr arr = Array(358, 32, 46, 73, 23, 59, 26, 91, 583, 12) For i = ______ For j = ______ If arr(i) ＞= arr(j) Then a = arr(j) arr(j) = arr(i) arr(i) = a End If Next j Next i For i = 1 To 10 Print arr(i); Next i End Sub程序运行后，单击命令按钮，将把数组arr中的10个数按升序排序，请填空。

相关试题