下列VB程序运行时，在文本框Text1中输入“h”后，单击命令按钮Command1后，标签框Label1中显示的内容是____    ____。
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
End Sub

实现计算器上x^y运算处理的算法部分流程图如图所示：

下列说法正确的是（ ）

A．框图①中该填入的是f←x*j

B．框图①中该填入的是f←f*j

C．j←j+1被执行了x次

D．j←j+1被执行了y次

下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=（1）
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”
（2）
End Sub
（1）_____________________
（2）_____________________

在Visual Basic中，下列循环程序段输出“*”的个数最小的是（  ）

A．	B．
C．	D．

Visual Basic程序设计环境中的部分控制如图所示，要将某图片加载到窗体中，则必须使用的控件是（  ）

A．①

B．②

C．③

D．④

某校5名学生会推荐成员网络人气得票数依次为1201，2120，1009，1987，2009，
若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（ ）

原始数据	1201	2120	1009	1987	2009
第一趟	2120	1201	1009	1987	2009
第二趟
第三趟	2120	2009	1987	1009	1201
第四趟	2120	2009	1987	1201	1009

 

A．2120  2009  1009  1987  1201

B．2120  2009 1009  1201  1987

C．1009  1201  2120  1987  2009

D．1009  1201  2009  2120  1987

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的__________（请填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

函数Sqr(x)的功能是（ ）

A．求x的算术平方根	B．求x的绝对值
C．求不大于x的最大整数	D．数值x转换成字符串x

能被对象所识别的动作是（ ）

A．事件

B．过程

C．属性

D．属性值

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub