有VisualBasic程序如下：PrivateSubCommand1_Click()Dim a As StringDim b As StringDim c A_刷题宝

题干

有Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（）

A．a = Text1.Text	B．b = Text2.Text
C．c =" a" + b	D．Label1.capton = c

上一题下一题 0.99难度选择题更新时间:2015-08-20 03:58:25

答案(点此获取答案解析）

同类题1

小明设计了一个名为“购物街”的程序，该程序功能如下：程序开始运行时显示一张商品图片，变量x存储商品价格，在文本框“Text1”输入猜测的价格y，点击“确定”按钮，判断输入的价格y与商品价格x的大小关系，并给出提示。当输入的价格y大于或小于x时，在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息，当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了！”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数，程序提供5次猜测机会，当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示：

图1
(1)应用程序界面设计时，为添加标签对象，应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为：______________________________________
②处应填写的代码为：______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t＝5 ’初始化猜测次数
x＝14 ’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str(t)
End Sub
Private Sub Command1_Click()
t＝____①____
If t＝0 Then
Command1.Enabled＝False
End If
Label4.Caption＝Str(t)
Dim y As Integer
y＝Val(Text1.Text)
If ____②____ Then
Label5.Caption＝“太大”
ElseIf y＜x Then
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！”
Command1.Enabled＝False
End If
End Sub

同类题2

VB集成开发环境中，用于编辑程序语言的窗口是( )

A．属性窗口

B．工程资源管理窗口

C．代码窗口

D．窗体设计窗口

同类题3

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

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（乙图) 中将Caption属性的属性值修改为“___________”。
（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
划线①、②处的选项:

同类题4

下面VB程序的功能是求100～999间被3除多2，被5除多3的所有整数，并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer，P As Integer
p＝0
For i＝100 To 999
If __①__ Then
List1.AddItem Str(i)
②__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能，请在程序划线处填入合适的语句：
划线①处应填入的语句为：_____________________________________；
划线②处应填入的语句为：_____________________________________。

同类题5

一个单窗体VB程序的运行界面如下图所示：

下列说法正确的是：( )

A．窗体内有1个按纽

B．窗体内有3个文本框

C．窗体内有3个标签

D．该窗体的标题（Caption）属性值是“加法计算器”

相关知识点