F.unction result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
else
result=False
E.nd If
E.nd Function
Private Sub Command1_Click()
x=Val(InputBox(“请输入一个整数”))
If______ Then
Textl=Str(x)&“是偶数.”
E.lse
Textl=Str(x)&“是奇数.”
E.nd If
E.nd Sub
运行程序,单击命令按钮,输入19,在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。
A.result(x)=“偶数”
B.result(x)
C.result(x)=“奇数”
D.NOT result(x)
[单选题]在表单中有命令按钮Command1和文本框Text1,将文本框的InputMask属性值设置为$9,999.9,然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789,当运行表单时,单击命令按钮,此时文本框中显示的内容为A.123457B.$23 456.7C.123457D.* * * *.*
[单选题]在表单中有命令按钮Command1和文本框Text1,将文本框的InputMask属性值设置为$9,999.9,然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=12 3456.789,当运行表单时,单击命令按钮,此时文本框中显示的内容为A.$123 456.789B.$23 456.7C.123 456.7D.****.*
[单选题]窗体有命令按钮Commandl和文本框Text1,对应的事件代码如下:F.or i=1T04X==3F.or i=1t03F.or k=1T02x=x+3Next kNext jNext iText1.Value=Str(x)E.nd Sub运行以上事件过程,文本框中的输出是( )。A.6B.12C.18D.21
[单选题]在窗体上有文本框Text1和命令按钮Command1,并有如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮,程序运行后,在文本框中显示的值是( )。A.2B.3C.4D.5
[单选题]在窗体上有文本框Text1和命令按钮Command1,并有如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End SubA.2B.3C.4D.5
[单选题]窗体中有命令按钮Command1和文本框Text1,事件过程如下:运行程序,单击命令按钮,输入19,在Text1中会显示“19是奇数”。那么在程序的括
[单选题]窗体中有命令按钮Command1和文本框Text1,事件过程如下:运行程序,单击命令按钮,输2k19,在Text1中会显示“19是奇数”。那么在程序的
[单选题]窗体中有命令按钮Command1和文本框Text1,事件过程如下:运行程序,单击命令按钮,输2k19,在Text1中会显示“19是奇数”。那么在程序的
[单选题](24)在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim i As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮,程序运行后,在文本框中显示的值是 A.2 B.3 C.4 D.5
[单选题]在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程:Private Sub Command1_Click()D.im i As Integer,n As IntegerF.or i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)E.nd Sub单击命令按钮,程序运行后,在文本框中显示的值是( )。A.2B.3C.4D.5