网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
运行下列程序，若A1单元格的分数为85分，则消息框结果为 Private Sub runl3_Click（) If Range（"A1").Value ＞= 60 Then result = "及格" ElseIf Range（"A1").Value ＞= 70 Then result = "良好" ElseIf Range（"A1").Value ＞= 85 Then result = "优秀" End If MsgBox result End Sub
A．优秀
B．良好
C．及格
D．result
参考答案和解析
D
更多 “运行下列程序，若A1单元格的分数为85分，则消息框结果为 Private Sub runl3_Click（) If Range（"A1").Value ＞= 60 Then result = "及格" ElseIf Range（"A1").Value ＞= 70 Then result = "良好" ElseIf Range（"A1").Value ＞= 85 Then result = "优秀" End If MsgBox result End SubA．优秀B．良好C．及格D．result” 相关考题
考题
在窗体中有两个文本框分别为 text1 和 text2 ，一个命令按钮 command1, 编写如下两个事件过程：Private sub command1_click()A=text1.value+text2.valueMsgbox aEnd subPrivate sub form_load()Text1.value= ””Text2.value= ””End sub程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___
考题
在窗体中使用一个文本框（名为 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 】
考题
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Sub Commandl_Click()a=Textl．Value+Text2．ValueMsgBox aEnd SubPrivate Sub Form_Load()TextI．Value=“”Text2．Value=””End Sub程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。
考题
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Button=1 And Button=2 Then PopupMenu a1 End If End SubB．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) PopupMenu a1 End SubC．Private Sub Form_MousoDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Button=1 Then PopupMenu a1 End If End SubD．Private Sub Form_MouseDown(Button As Integer，_ Shift As Integer，X As Single，Y As Single) If Buaon=2 Then PopupMenu a1 End If End Sub
考题
在窗体中添加一个名称为Cmd1的命令按钮，然后编写如下事件代码： Private Sub Cmd1_Click() a=125 If a＞60 Then k=1 ElseIf a＞70 Then k=2 ElseIf a＞80 Then k=3 ElseIf a＞90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。A．1B．2C．3D．4
考题
在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。A．10B．60C．30D．70
考题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。A．10B．30C．40D．50
考题
在窗体中使用一个文本框(名称为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．其他
考题
窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A． Private Sub HScroll 1_Change() Print HScroll1.Value End SubB．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC．Private Sub HScroll1 Scroll() Print HScroll1.Value End SubD．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub
考题
单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b,C)End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End FunctionA．21B．23C．19D．35
考题
设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu a1，2 End SubB．Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End SubC．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End SubD．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1 End Sub
考题
设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，以下( )事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。A．Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) If Button=2 Then PopupMenu a1,2 End SubB．Private Sub Form. Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) PopupMenu a1,0 End SubC．Private Sub Form_Mouse Down(Button As Imeger,Shift As Integer,_X As Single,Y As Single) PopupMenu a1 End SubD．Private Sub Form_Mouse Down(Button As Integer,Shift As Integer,_X As Single,Y As Single) If (Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu a1 End Sub
考题
若有以下窗体单击事件过程：Private Sub Form_Click()result=1For i=1 To 6 step 3result=result*iNext iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是A．1B．4C．15D．120
考题
窗体中有命令按钮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)
考题
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。A.10B.30C.40D.50
考题
窗体中有命令按钮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)
考题
在窗体中使用一个文本框名为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】 。
考题
若有以下窗体单击事件过程：Private SubForm_Click（ ） result=1 For i=1To 6 Step 3 result=result*i Next i MsgBoxresult End Sub打开窗体运行后，单击窗体，则消息框的输出内容是（ ）。A.1B.4C.15D.120
考题
在窗体上有一个名为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.不合格
考题
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 ______。A．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End SubB．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End SubC．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End SubD．Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub
考题
下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End SubA．20 12 20 15B．12 20 12 25C．24 15 12 20D．24 12 12 15
考题
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为al，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是（ ）。A.Private Sub Form_MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Button=1 And Blltton=2Then PopupMenu a1 End If End SubB.Private Stlb Form_MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) PopupMenu a1 End SubC.Private Sub Form—MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Button=1 Then PopupMenu a1 End If End SubD.Private Sub Form. MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) If Buttcn=2 Then PopupMenu a1 End If End Sub
考题
以下向单元格中输入数据的基本语句中，哪一句是不正确的()。A.给单元格区域赋值：Range((Cells(1,1),(Cells(2,2))=100B.向工作表Sheet1的单元格区域A1:C5中输入数组常量3：Worksheets("Sheet1").Range("A1:C5").Value="=3"C.给当前单元格赋值：Activecell.Value=10
考题
在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码： Private Sub Commandl _Click() a=75 If a＞60 Then k=1 ElseIf a＞70 Then k=2 ElseIf a＞80 Then k=3 Elself a＞90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4
考题
若有以下窗体单击事件过程：Private SubForm_Click（ ）result=1For i=1To 6 Step 3result=result*iNext iMsgBoxresultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是（ ）。A.1B.4C.15D.120
考题
试题31若有以下窗体事件过程：Private Sub Form_Click()result=1For i=1 To 6 step 3Result = result * 1Next iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是（）A．1B．4C．15D．120
考题
问答题Over the course of a year, a certain house appreciated in value by 10 percent while the house next door decreased in value by 10 percent as a result of foundation damage. At the end of the year, the reduced price of the second house was what percentage of the increased price of the first house? (1) The amount by which the first house increased in value was half as much as the amount by which the second house decreased in value. (2) At the end of the year, the second house was worth $70,000 more than the first house.
热门标签
最新试卷
