填空题

以下程序判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以 5余3，除以7余4，则输出；否则，将焦点定位在文本框Text中，选中其中的文本。
Private Sub Command1_Click()
x＝Val(Text1.Text)
If 【9】 Then
Print x
Else
Text1.SetFoeus
Text1.SetStart＝0
End If
End Sub

【参考答案】

x mod 3＝2 And x mod 5＝3 And x mod 7＝4
<上一题 目录 下一题>
热门 试题

填空题
在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click() a＝InputBox( 请输入一个整数 ) b＝InputBox( 请输入一个整数 ) Print Val(a)+Val(b) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为 【10】 。
填空题
在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示“打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click() CommonDialog1. Filter= 【14】 CommonDialog1. ShowOpen PCSTextBox. Text＝ 【15】 End Sub
相关试题