在窗体上画一个命令按钮,名称为command1,单击命令按钮,执行如下事件过程:
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是( )
Private Sub Command1_Click()
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是( )
A.software and hardware |
B.software |
C.hadrware |
D.and |
将文本框Text2内输入的数据送到字符型变量n 中,则应使用的语句是( )
A.n = text2 |
B.n = text2.text |
C.n = val(text2) |
D.n = val(text2.text) |
下列关于“控件”属性的说法正确的是( )
A.控件的每一个属性都具有同样的默认值; |
B.所有对象都具有同样的属性; |
C.控件的属性只能在设计时设置,不能在运行时修改; |
D.单击窗体中某控件,在属性窗口中的属性列表框中找到要设置的属性,即可设置其属性值; |
有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是( )
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是( )
A.1 | B.3 | C.123 | D.321 |
小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码,点击登录按钮后,会跳出信息框提示是否验证成功。部分程序与流程图如下所示:

uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”
' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “
”
Else
MsgBox “
”
方框中正确的语句是( )。

uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”

ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “

Else
MsgBox “

方框中正确的语句是( )。
A.①中“验证成功” | B.②中“输出用户名或密码有误” |
C.②中“验证成功 | D.③中“输出验证码错误” |
编写VB程序,实现计算器的简单计算功能:通过0~9的数字和小数点符号输入计算数据,单击选择“+、-、*、/”等运算,最后点击“=”按钮在文本框Text1中显示运算结果。界面如第14题-1图所示,回答下列问题:


(1)要修改窗体的显示名称为“计算器”,应选择第14题-2图所示的 属性。
(2)为实现上述功能,输入数据是非常重要的部分,以下是数字按钮“1”中的代码,用于在Text1中输入数字“1”,请在划线处输入合适的代码。
Private Sub Command11_Click()
Dim fuhao As ① '用于存储+、-、*、/等运算符号
Dim x As Single '用于存储第一个运算数
Dim y As Single '用于存储第二个运算数
Text1.Text = ②
If fuhao = "" Then
x = Val(Text1.Text)
③
y = Val(Text1.Text)
End If
End Sub
(3)运行测试通过之后,如果想让其他人能够直接运行使用,应该生成 格式文件。


(1)要修改窗体的显示名称为“计算器”,应选择第14题-2图所示的 属性。
(2)为实现上述功能,输入数据是非常重要的部分,以下是数字按钮“1”中的代码,用于在Text1中输入数字“1”,请在划线处输入合适的代码。
Private Sub Command11_Click()
Dim fuhao As ① '用于存储+、-、*、/等运算符号
Dim x As Single '用于存储第一个运算数
Dim y As Single '用于存储第二个运算数
Text1.Text = ②
If fuhao = "" Then
x = Val(Text1.Text)
③
y = Val(Text1.Text)
End If
End Sub
(3)运行测试通过之后,如果想让其他人能够直接运行使用,应该生成 格式文件。
如下图所示,在Visual Basic工程设计中,要在命令按钮command1中显示“确定”,则下列操作正确的是( )


A.在Text属性值中输入“确定” |
B.在Caption属性值中输入“确定” |
C.在Font属性值中输入“确定” |
D.在Name属性值中输入“确定” |
对输入的两个整数a和b,找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示,流程图中虚线框部分的内容可为


A.![]() |
B.![]() |
C.![]() |
D.![]() |
编写VB程序,实现如下功能:在文本框Textl和Text2中分别输入一个整数,单击命令按钮Command1,在列表框List1中显示结果,运行效果如第1图所示。结果包含两列数据,第1列为两数之间的摄氏温度值(间隔1度、升序),第2列为对应的华氏温度值。

(1)要使命令按钮Command1上显示的文本改为“转换”,可在其属性窗口(2图) 中将
____________属性的属性值修改为“转换”。
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If_________Then '(选填字母,从下列A、B、C、D四个选项中选取一项)
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While__________'(选填字母,从下列A、B、C、D四个选项中选取一项)
f =" i" * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
_________'(填程序代码)
Loop
End Sub
划线①、②处的选项:

(1)要使命令按钮Command1上显示的文本改为“转换”,可在其属性窗口(2图) 中将
____________属性的属性值修改为“转换”。
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If_________Then '(选填字母,从下列A、B、C、D四个选项中选取一项)
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While__________'(选填字母,从下列A、B、C、D四个选项中选取一项)
f =" i" * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
_________'(填程序代码)
Loop
End Sub
划线①、②处的选项:
A.i <= t2 | B.f <= t2 | C.t1 > t2 | D.i < f |