填空题

在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。　　Private Sub Command1_Click( ) 　　　num=Val(Text1．Text) 　　　If【】Then 　　　　Print num 　　Else 　　　　Text1．Text=" " 　　　　【】　　　End If 　　End Sub

【参考答案】

num Mod6=2 And num Mod 5=3

<上一题目录下一题>

热门试题

填空题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【】 Print 您的成绩为优秀！ Case【】 Print 您的成绩为良好！ Case【】 Print 您的成绩为一般！ Case ElsePrint 您的成绩为一般以下！ End SelectEnd Sub

单项选择题

单击一次命令按钮后，下列程序的执行结果为（）。Private Sub Command1_Click()Dim m As Integer，I As Integer，x(10) As IntegerFor I=0 To 4：x(I)=I+1：Next IFor I=1 TO 2：Call Prioc(x)：Next IFor I=0 TO 3：Print x(I)；：Next IEnd Sub Private Sub Prioc(a()As Integer)Static I As IntegerDoa(I)=a(I)+a(I+1)I=I+1Loop While I＜2End Sub

A．private
B．无修饰符
C．public
D．protected

相关试题