问答题

有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click（）
x=Val（Text1.Text）
If 【6】 Then
Print x
Else
Text1.Text=''
【7】
End If
End Sub

A.Text）
B.Text=''

你可能感兴趣的试题

在窗体上画两个文本框，其名称分别为Name1和PassWord1，然后编写如下事件过程
Private Sub Form_Load（）
Show
Name1.Text=''
Password1.Text=''
Password1.SetFocus
End Sub
Private Sub Password1_KeyDown（KeyCode As Integer, Shift As Integer）
Name1.Text=Name1.Text + Chr（KeyCode - 3）
End Sub
程序运行后，如果在Password1中输入'hit'，则在Name1文本框中显示的内容是【8】。

A.Text=''
B.Text=''
C.SetFocus
D.Text=Name1.Text

在E盘当前目录文件夹下建立一个名为'Student.txt'的顺序文件，要求用InputBox函数输入5个学生的姓名（StuName）、年级（StuGrade）和年龄（StuAge）。
Private Sub Form_Click（）
【12】
For i=1 To 5
StuName=InputBox（'请输入姓名'）
StuGrade=InputBox（'请输入年级号'）
StuAge=InputBox（'请输入年龄'）
【13】
Next i
【14】
End Sub

A.txt'的顺序文件，要求用InputBox函数输入5个学生的姓名（StuName）