题目内容（请给出正确答案）

[主观题]

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。

A．hardware

B．software

C．hardware

D．1

提问人：网友wangjunbo 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上画一个命令按钮，名称为Command1。单击命令按钮…”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() 　　Dim num As Integer 　　num = 1 　　Do Until num > 6 　　 Print num; 　　 num = num + 2.5 　　Loop End Sub程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A、1 3.5 6

B、1 3 5

C、1 4 6

D、1 4 7

点击查看答案

第2题

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

A．3

B．9

C．5

D．6

点击查看答案

第3题

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是

A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single) If Button=2 Then PopupMenu al,2 End Sub

B．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single PopupMenu al,0 End Sub

C．Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single PopupMenu al End Sub

D．Private Sub Form. MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single If(Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu al End Sub

点击查看答案

第4题

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=Fun2(Funl(x),y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer,y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是

A．2 4 2 4

B．2 4 4 8

C．10 10 58 58

D．4 4 8 8

点击查看答案

第5题

设有如下的记录类型： TypeStudent number As String name AS String age As Integer End Type 则正确引用该记录类型变量的代码是()。

A．Student.name="张红"

B．Dim s As Student s.name="张红"

C．Dim s As Type Student s.name="张红"

D．Dim s As Type s.name="张红"

点击查看答案

第6题

下列程序的执行结果为()。 n=0 j=1 Do Until n＞2 n=n+1 j=j+n*(n+1) Loop Print n;j

A．0 1

B．3 7

C．3 21

D．3 13

点击查看答案

第7题

一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X As Integer，在Model1中有语句Public Y As Integer，则以下叙述中正确的是()。

A．变量X、Y的作用域相同

B．Y的作用域是Model1

C．在Form1中可以直接使用X

D．在Form2中可以直接使用X和Y

点击查看答案

第8题

在窗体上绘制一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是()。

A．12

B．13

C．14

D．15

点击查看答案

第9题

执行以下程序段后，变量C$的值为()。 A$="Visual Basic Programing" B$="Quick" C$=B$ & Ucase(Mid$(A$,7,6)) & Right$(A$,11)

A．Visual BASIC Programing

B．QuickBasic Programing

C．QUICK Basic Programing

D．Quick BASIC Programing

点击查看答案

第10题

在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim strAs String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后，如果在键盘上输入单字母“k”，则在文本框Text1中显示的内容为()。

A．kk

B．kK

C．KK

D．Kk

点击查看答案