有下列Sub过程： Sub Sun(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Com...

查看本题答案

包含此试题的试卷

计算机等级考试《单选题》真题及答案点击查看

你可能感兴趣的试题

在窗体上画一个名称为Text1的文本框要求文本框只能接收大写字母的输入以下能实现该操作的事件过程是

Private Sub Text1_KeyPress(KeyAscii As Intege　　　　If KeyAscii < 65 Or KeyAscii > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyAscii = 0　　　　　End If　　　　End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intege　　　　If KeyCode < 65 Or KeyCode > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyCode = 0　　　　　End If　　　　End Sub Private Sub Text1_MouseDown(Button As Integer,_　　　　　　　Shift As Integer, X As Single, Y As Singl　　　　If Asc(Text1.Tex < 65 Or Asc(Text1.Tex > 90 Then　　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub Private Sub Text1_Change()　　　　If Asc(Text1.Tex ＞ 64 And Asc(Text1.Tex ＜ 91 Then　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub

设已经在菜单编辑器中设计了窗体的快捷菜单其顶级菜单为Bt取消其可见属性运行时在以下事件过程中可以使快

Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_　　　　　　　　　　　　　　　X As Single, Y As Singl　　　If Button=2 Then PopupMenu Bt, 2　 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　PopupMenu Bt　 End Suh Private Sub Form MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　PopupMenu Bt,0　 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　If (Button=vbLeftButto Or ( Button=vbRightButto Then PopupMenu Bt　 End Sub

在烧结过程中下列物质是还原剂的有

CO₂ C H₂ O₂ CO N₂

下列过程定义语句中形参个数为不确定数量的过程是

Private Sub Pr03(XAsDouble，y As Singl Private Sub Pr03(Arr(3)；Optionx，Option Private Sub Pr03(ByRefx，ByValy，Art()) Private Sub Pr03(Param Array Arr())

设已经在菜单编辑器中设计了窗体的快捷菜单其顶级菜单为Bs取消其可见属性运行时在以下事件过程中可以使快

Private Sub Form_MouseDown(Button As Integer，Shift As Integer， X As Single，Y As Singl If Button=2 Then PopupMenu Bs，2 End Sub Private Sub Form_Mouse Down(Button As Integer，Shift As Integer， X As Single，Y As Singl PopupMenu Bs End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Singl PopupMenu Bs，0 End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Singl If(Button=VbLeftBuaoOr(Button=VbRighButtoThen PopupMenu Bs End Sub

在以下事件过程中可以在用户按下鼠标右键时显示一个上边框以鼠标当前位置为心的弹出式菜单而且这个弹出式菜

Private Sub Form _ Mouse Up(Button As Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　If Button=2 Then　　　　　　PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_　　　　　　　　vbPopupMenuRightButton，X，Y，mnuEditOpen　　　　End If　　End Sub Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　If Button=2 Then　　　　　　PopupMenu mnuEdit，　　　　End If　　End Sub Private Sub Form _ MouseUp(Button AS Integer，Shift AS Integer，_　　　　　　　　　　　　　　　　X As Single，Y As Singl　　　　PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_　　　　　　　　　　　vbPopupMenuRightButton　　End Sub Private SUb Form _ MouseUp(Button AS Integer，_　　　　　　　　　　　　　　　　Shift As Integer，X As Single，Y As Singl　　　　If Button=2 Then　　　　　　　　　PopupMenu mnuEdit，2　　　　End If　　End Sub

下列过程定义语句中形参个数为不确定数量的过程是

Pnvate Sub Pr03(x As Double，y As Singl Pdrate Sub Pr03(Arr(3)，Option x，Option Private Sub Pr03(ByRefx，ByVoly，Arr( )) PrivateSubPr03(ParamArrayArr( ))

假定已经在菜单编辑器中建立了窗体的弹出式菜单其顶级菜单的名称为a1其可见属性为False则程序运行后

Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 1 And Button = 2 Then PopupMenu al End If End Sub Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl PopupMenu a1 End Sub Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 1 Then PopupMenu a 1 End If End Sub Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 2 Then PopupMenu a 1 End If End Sub

在窗体上画一个名称为Text1的文本框要求文本框只能接收大写字母的输入以下能实现该操作的事件过程是

Private Sub Text1_KeyPress(KeyAscii As Intege If Key Ascii＜65 Or KeyAscii＞90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End Sub Pfivate Sub Text1_KeyDown(KeyCode As Integer,Shift As Intege If KeyCode＜65 Or KeyCode＞90 Then MsgBox“请输入大写字母” KeyCode=0 End If End Sub Private Sub Text1_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Singl If Asc(Text1.Tex＜65 Or Asc(Text1.Tex＞90 Then MsgBox“请输入大写字母” End If End Sub Private Sub Text1_Change() If Asc(Text1.Tex＞64 And Asc(Text1.Tex＜91 Then MsgBox“请输入大写字母” End If End Sub

下列过程定义语句中形参个数为不确定数量的过程是

Private Sub Pro3(x As Double，y As Singl Private Sub Pro3(Arr(3)，Option x，Option Private Sub Pro3(ByRef x，ByVal y，Arr()) Private Sub Pro3(ParamArray Arr())

下面有关注释语句的格式错误的是

Rem注释内容 '注释内容 a=3：b=2'对a、b赋值 Private Sub Cpmmandl_Mouse Down(button As Integer，Shin As Integer，Rem鼠标按下事件的命令调用过程X As Single，Y As Singl

在窗体上画一个名称为Text1的文本框要求文本框只能接收大写字母的输入以下能够正确实现该操作的事件过

Private Sub Text1_ KeyPress (KeyAscii As Intege IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End sub Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs Singl IfAsc (Text1.Tex ＜ 65 Or Asc (Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub Private Sub Text1_ Change() IfAsc(Text 1.Tex ＜ 65 Or Asc(Text1. Tex ＞ 91 Then MsgBox “请输入大写字母” End If End sub

设已经在菜单编辑器中设计了窗体的快捷菜单其顶级菜单为Bs取消其可见属性运行时在以下事件过程中可以使快

Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，-　　　　　X As Single，Y As Singl　　If Button=2 Then PopupMenu Bs，2　　End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，-　　　　　　　　X As Single，Y As Singl　　　　PopupMenu Bs　　End Sub Private Sub FOrm_MouseDown(Button As Integer，Shift As Integer，-　　　　　　　X As Single，Y As Singl　　　　PopupMenu Bs，0　　End Sub Private Sub Form_MouseDown(Button As Integer，Shin As Integer，-　　　　　　　X As Single，Y As Singl　　　　If(Button=vbLeftButtoOr(Button=vbRightButtoThen PopupMenu Bs　　End Sub

在窗体上先后画两个图片框名称分别为Picture1和bananabanana中添加了香蕉图片见图1

Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Singl bananMove Picture1.Left+X,Picture1.Top+Y End Sub Private Sub banana_DragDrop(Source As Control,X As Single,Y As Singl SourcMove Picture1.Lefi+X,Picture1.Top+Y End Sub Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS Singl SourcMove Picture1.Left+X,Picture1.Top+Y End Sub Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Singl bananMove bananLet+X,banaTop+Y End Sub

下面有关注释语句的格式错误的是

Rem注释内容 '注释内容 a=3:b=2'对a、b赋值 Private Sub Command1_MouseDown(button As Integer，shift As Integer，_Rein鼠标按下事件的命令调用过程x As Single，Y As Singl

下面有关注释语句的格式错误的是

Rem注释内容 ′注释内容 a=3：b=2，′对a、b赋值 Private Sub Command1_MouseDown(button As Integer，shift As Integer，_Rem鼠标按下事件的命令调用过程X As Single，Y As Singl

在窗体上画一个名称为Text1的文本框要求文本框只能接收大写字母的输入以下能实现该操作的事件过程是_

Private Sub Text1_KeyPress(KeyAscii As Intege IfKeyAscii＜65 Or KeyAscii＞90 Then MsgBox“请输入大写字母” KeyAscii=0 End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Intege If KeyCode＜65 Or KeyCode＞90 Then MsgBox“请输入大写字母” KeyCode=0 End If End Sub Private Sub Text1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Singl， If Asc(Text1.Tex＜65 Or Asc(Text1.Tex＞90 Then MsgBox“请输入大写字母” End If End Sub Private Sub Text1_Change() If Asc(Text1.Tex＞64 And Asc(Text1.Tex＜91 Then MsgBox“请输入大写字母” End If End Sub

在窗体上画一个名称为Text1的文本框要求文本框只能接收大写字母的输入以下能实现该操作的事件过程是_

Private Sub Text1_KeyPress(KeyAscii As Intege If KeyAscii＜65 Or KeyAscii＞90 Then MsgBox"请输入大写字母" KeyAscii=0 End If End Sub Private Sub Text1_KeyDown(Keycode As Integer, Shift As Intege If KeyCode＜65 Or Keycode＞90 Then MsgBox"请输入大写字母" KcyCode=0 End If End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Singl If Asc(Text1. Tex＜65 Or Asc(Text1. Tex＞90 Then MsgBox"请输入大写字母" End If End Sub Private Sub Text1_Change() If Asc(Text1. Tex＞64 Or Asc(Text1. Tex＜91 Then MsgBox"请输入大写字母" End If End Sub

下列有关CpCpk的叙述正确的是

C_p——无偏移短期过程能力指数，C_pk——有偏移短期过程能力指数 C_p——无偏移上单侧短期过程能力指数，C_pk——有偏移短期过程能力指数 C_p——无偏移上单侧短期过程能力指数，C_pk——无偏移下单侧短期过程能力指数 C_p——无偏移上单侧短期过程能力指数，C_pk——有偏移下单侧短期过程能力指数

下列叙述中正确的是

Sub过程有返回值，返回值类型可由定义时的As子句声明 Sub过程有返回值，返回值类型可在调用过程时动态决定 Sub过程有返回值，返回值类型只能是符号常量 Sub过程无返回值，不能定义返回值类型

有下列Sub过程： Sub Sun(x As Single,y As Single) t=x x=t/y y=t Mody End Sub 在窗体上的命令按钮Com...

包含此试题的试卷

你可能感兴趣的试题

热门试题

热门题库