首页 > 消防安全> 注册安全工程师
题目内容 (请给出正确答案)
[主观题]

在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序

: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Print c; d End Sub 程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是

A.abcEFG

B.abcefg

C.ABCefg

D.ABCEFG

查看答案
答案
收藏
如果结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能还需要:
您的账号:
发送账号密码至手机
发送
安装优题宝APP,拍照搜题省时又省心!
更多“在窗体中添加一个命令按钮,名称为Command1,两个文本框…”相关的问题
第1题
在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码:Private Sub Command1_Click() a=0

在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b+c End Sub 窗体打开运行后,如果单击命令按钮,则消息框的输出结果为______。

A.11

B.a=11

C.0

D.False

点击查看答案
第2题
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编如下事件过程:Privat

A.1

B.5

C.27

D.45

点击查看答案
第3题
考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象
“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计:

(1)在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线控件,控件宽度为10.5厘米,控件命名为“tLine”。

(2)将窗体中名称为“lTalbel”的标签控件上的文字颤色改为“蓝色”(蓝色代码为16711680)、字体名称改为“华文行楷”、字体大小改为22。

(3)将窗体边框改为“细边框”样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线:并且只保留窗体的关闭按钮。

(4)假设“tStud”表中,“学号”字段的第5位和第6位编码代表该生的专业信息,当这两位编码为“10”时表示“信息”专业,为其他值时表示“管理”专业。设置窗体由名称为“tSub”的文本框控件的相应属性,使其根据“学号”字段的第5位和第6位编码显示对应的专业名称。

(5)在窗体中有一个“退出”命令按钮,名称为“CmdqQuit”,其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。

注意:不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代码;不允许修改表对象“tStud”。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

点击查看答案
第4题
在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文
本框(名称分别为Textl和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输人姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。

注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。

点击查看答案
第5题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Stat

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

Private Sub Command1_Click()

Static A As Integer

Static B As Integer

Cls

B=2

B=B+3

A=3+A

printA,B

EndSub

程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为()。

A、35

B、66

C、95

D、33

点击查看答案
第6题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是()。

A.4

B.5

C.6

D.7

点击查看答案
第7题
在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编
写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是()。

A.Private Sub Text1_Change()

Command1.Caption = "计算机等级考试"

End Sub

B.Private Sub Command1_ Click ()

Caption = "计算机等级考试"

End Sub

C.Private Sub Form1_ Click ()

Text1.Caption = "计算机等级考试"

End Sub

D.Private Sub Command1_ Click ()

Text1.Text = "计算机等级考试"

End Sub

点击查看答案
第8题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Clic
k() Dim a As Integer,s As Integer a=8 s=1 Do S=s+a a=a-1 Loop While a<=0 Prim s,a End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案
第9题
在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称
为command1的命令按钮,编写如下代码:

Private Sub Command1_Click()

Dim x!, y!, z!, t!

x = Text1

y = Text2

z = Text3

If x< y then

t = x

x = y

y = t

End If

If y< z then

t = y

y = z

z = t

If x< y then

t = x

x = y

y = t

End If

End If

Label1.Caption = x & "," & y & "," & z

End Sub

当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为()

A.3,5,8

B.5,3,8

C.8,5,3

D.3.8.5

点击查看答案
第10题
窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:Private Sub Command1 Click()

窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:

Private Sub Command1 Click()

Static x As Variant

n=0

x=Array(1,2,3,4,5,6,7,8,9,10)

While n<=4

x(n)=x(n+5)

Print x(n):

n=n+1

Wend

End Sub

运行程序,单击命令按钮Command1,窗体上显示的是()。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

点击查看答案
退出 登录/注册
发送账号至手机
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改