网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：
Private Sub run13_Click()
If Me!num1>=60 Then
result="及格"
Elself Me!num1>=70 Then
result="通过"
ElselfMe!numl>=85 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。
参考答案
更多 “ 在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：Private Sub run13_Click()If Me!num1=60 Thenresult="及格"Elself Me!num1=70 Thenresult="通过"ElselfMe!numl=85 Thenresult="合格"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。 ” 相关考题
考题
在窗体中使用一个文本框（名为 x ）接受输入值，有一个命令按钮 test ，事件代码如下：Private Sub test_Click()y = 0For i=0 To Me!xy=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为 3 ，单击命令按钮，输出的结果是 【 12 】
考题
在窗体中使用一个文本框（名为 num1 ）接受输入值，有一个命令按钮 run13 ，事件代码如下：Private Sub run13_Click()If Me!num1 = 60 Thenresult = " 及格 "ElseIf Me!num1 = 70 Thenresult = " 通过 "ElseIf Me!num1 = 80 Thenresult = " 合格 "End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为 85 ，单击命令按钮，输出结果是 【 13 】
考题
在窗体中使有一个文本框（名为 n ）接受输入的值，有一个命令按钮 run ，事件 代码 如下：Private Sub run_Click()result=""For i=1 To Me!nFor j=1 To Me!nresult=result+"*"Next jresult=result+Chr(13)+Chr(10)Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为 4 ，单击命令按钮后输出的图型是}A. ****************B. ****************C. ****************************D. ****************
考题
请教:2007年9月全国计算机等级考试二级Access笔试试题第2大题第12小题如何解答?
【题目描述】
在窗体中使用一个文本框名为x．接受输入值，有一个命令按钮test，事件代码如下：
Private Sub test_Click
y = 0
Fori = 0ToMe!x
y = y + 2 * i + 1
Next i
MsgBoxy
End Sub
打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是【12】。
考题
在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2170 n=Len (Str$ (m) +Space (5)) Me! Text1=n End Sub打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10
考题
在窗体中使用一个文本框(名为n) 接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click()result＝""For i＝1 To Me!nFor j＝1 To Me!nresult＝result+"*"Next jresult＝result+Chr(13) +Chr(10)Next IMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )A．B．C．D．
考题
在窗体中添加一个命令按钮(名为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 Command1_Click( ) Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后，单击命令按钮，在文本框中显示______。A．4B．5C．6D．7
考题
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=FalseElsef=TrueEnd IfEnd FunctionPrivate Sub Cmd_Click( )Dim n As Longn=Val(Me! text1)p=IIf(f(n), "奇数“，"偶数")Me! Labell. Caption=n"是"pEnd Sub窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【 】。
考题
在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事件代码如下：Privme Sub test_Click()y=0For i=0 To Me!xy=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是【 】。
考题
在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮run13，事件 代码如下： Private Sub run13_Click() If Me!num1＞=60 Then result="及格" Else If Me!num1＞=70 Then result="通过" Else If Me!num1＞=80 Then result="合格" End If MsgBOx result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是( )。A．及格B．通过C．合格D．其他
考题
在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text 1="VB programming"Text 2=Text 1Text 1="ABCD"End Sub程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。
考题
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
考题
在窗体中使用一个文本框名为n．接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = "" For i = 1 To Me!n For j = 1 To Me!n result = result + "*" Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A． * * * * * * * * * * * * * * * *B． * * * * * * * * * * * * * * * *C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *D． * * * * * * * * * * * * * * * *
考题
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 = 60 Then result = "及格" ElseIf Me!num1 = 70 Then result = "通过" ElseIf Me!num1 = 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
考题
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(X As Long)As BooleanIf x Mod2=0 Thenf=TrueElsef=FalseEnd IfEnd FunctionPrivate Sub Command1_ Click()Dim n As Longn=Val(Me!text1)p=Ⅱf(f(n)，"Even number"，"Odd number")Me!Labell.Caption=n "is" pEnd Sub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。
考题
在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮Fun，事件代码如下： Private Sub run_Click（ ） result= Fori=l ToMe!nForj=1 To Melnresult=result+*Nextjresult=result+Chr（13）+Chr（10）NextiMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是（ ）。
考题
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11 Click（ ） Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（ ）。A.合格B.通过C.优秀D.不合格
考题
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下： Private Sub Commandl Click（ ）Lablel．Caption=”标签” End Sub Private Sub Form—Load（ ）Form．Caption=”举例” Commandl．Caption=”移动”End Sub 打开窗体后，单击命令按钮，屏幕显示（ ）。A.B.C.D.
考题
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click( ．result = For i= 1 To Me!nFor j = 1 To Me!nresult = result + *Next jresult = result + Chr(13． + Chr(10．Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
考题
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（ ）。A.13B.14C.15D.16
考题
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下； Ptivate Sub run_Click() Yesult=" " For i=1 To Me!n For j=1 To Me!n result=result +"*" Next j result=resuh+Chr(13)+Chr(10) NexL i MsSBOx result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A． * * * * * * * * * * * * * * * *B． * * * * * * * * * * * * * * * *C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *D． * * * * * * * * * * * * * * * *
考题
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错
考题
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text1＝"VB programming"Text2＝Text1Text1＝"ABCD"End Sub程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
考题
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nEnd Sub打开窗体运行后，单击命令按钮，在文本框中显示A ） 5B ） 8C ） 9D ） 10
热门标签
最新试卷