填空题

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

【参考答案】

x Mod 4 = 1 And x Mod 5=2

<上一题目录下一题>

热门试题

单项选择题

以下程序运行后，单击按钮输出结果是( )。Private Sub Commandl_Click( )Dim x As Integer，y As Integer，z As IntegerX=4：y=2： Z=3Call Gopd(x，x，z)Print x；X；ZCall Gopd(x，y，y)Print x；y；yEnd SubPrivate Sub Gopd(x As Integer，y As Integer，z As Integer)X=3 * Z + 1y=2 * zz=x + yEnd Sub

A．6　6　12 7 11 11
B．8　5　105 11 11
C．9　6　129 10 15
D．8　10　105 9 10

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer，n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m，n)Print n(5)End Sub程序运行后，单击命令按钮输出结果为( )。

A．’65+13’
B．["电脑商情"]
C．[[中国]]
D．’[x=y]’

相关试题