网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox(“请输入一个整数”))
If______ Then
Textl=Str(x)&“是偶数．”
Else
Textl=Str(x)&“是奇数．”
End If
End Sub
运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。
A．result(x)=“偶数”
B．result(x)
C．result(x)=“奇数”
D．NOT result(x)
参考答案
更多 “ 窗体中有命令按钮Command1和文本框Text1，事件过程如下：Function result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)“是偶数．”ElseTextl=Str(x)“是奇数．”End IfEnd Sub运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。A．result(x)=“偶数”B．result(x)C．result(x)=“奇数”D．NOT result(x) ” 相关考题
考题
（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()For i=1 to 4X=3For j=1 to 3For k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)End sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A ） 6B ） 12C ） 18D ） 21
考题
在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是( )。A．6B．12C．18D．21
考题
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
考题
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：Private Sub Command_Click()Dim x AS Integer， y As Integer， z As Integerx=5:y=7:z=0Me!Textl=””Call pl(x，y，z)Me!Text1=zEnd SubSub pl(a As Integer，b As Integer，c As Integer)C=a+bEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是【 】 。
考题
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：Private Sub Command1_Click()For I=1 To 4X=3For j=i To 3For k=1 To 2X=x+3Next kNext jNext IText]．value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A．6B．12C．18D．21
考题
窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（ ） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)”是偶数．” Else Text1=Str(x)”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（ ）。A.result(x)=“偶数”B.result(x)C.result(x)=“奇数”D.NOT result(x)
考题
在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click(． For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x． End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是A.6B.12C.18D.21
考题
在窗体中有一个命令按钮Command1和一个文本框Text1，事件代码如下： Private Sub Command1_Click（) For i = l To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next i Text1.value = Str（x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是______。A．6B．12C．18D．21
热门标签
最新试卷