产生[1，50] 范围内某一随机整数的表达式是   

A．Rnd * 50

B．Int(Rnd * 50)

C．Int(Rnd * 50) + 1

D．Int (Rnd * 49) + 1

在VB中，表达式 "20" + "16"的值是  

A．"36"

B．36

C．"20+ 16"

D．"2016"

编写VB程序，实现如下功能：在文本框Text1 输入字母字符串，单击“加密”按钮Command1，字符进行逐个加密，加密过程是，先在“密码本”m中找到相应字符，再从Text3中得到其所对应位置的密钥,并在文本框Text2中显示密文（运行效果如下图所示）。本题暂时不考虑解密问题。实现上述功能的VB代码如下：

请在划线处填入合适代码。
Private SubCommand1_Click()
Dim s As String, m As String
Dim t As String
Dim k As String
Dim c As Integer
s = Text1.Text
n1 = Len(s)
s3 = Text3.Text
n3 = Len(s3)
If n3 < 26 Then
Label1.Caption = "请重新输入密钥！"
Text3.Text = ""
Exit Sub
End If
m = "abcdefghijklmnopqrstuvwxyz"
For i =" 1" To n1
k =" Mid(s," i, 1)
If ①Then    '将大写字母转换为小写
k =" Chr(Asc(k)" + 32)
End If
c = 1
Do While c <= Len(m)
If k =" Mid(m," c, 1) Then
Exit Do
End If
②
Loop
t =" t" +③
Next i
Text2.Text = t
End Sub

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。
 
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
划线①、②处的选项:
A.i <= t2  B.f <= t2  C.t1 > t2 

A．i < f

下列程序段运行后，变量s的值是（ ）。
Dim s,k as integer
s = 0
For k =___1___To 50
s =" s" + 2
Next  k

A．1

B．2

C．50

D．100

有如下Visual Basic程序段：
a = 9
b = "Command Button"
c = Len(b)
If a > 0 And a < c Then
Label1.Caption =Mid(b,a,6)
Else
Label1.Caption = "error"
End If
该程序段运行后，在标签Label1上显示的是____________

A．error

B．6

C．Button

D．Command

如下图所示，该流程图所表示的算法违背了算法的有穷性特征，下列修改方法中，可以改正该错误的是（）

A．将①处改为 i ← 0	B．将②处改为 s ≥ 0 ?
C．将③处改为 i ← i-2	D．将④处改为 s ← s-i

王林设计了一个数字图形的程序，其功能是在文本框Text1中输入n 的值（10>n>1），单击“输出”按钮Command1，在列表框List1中输出数字图形；单击“退出”按钮Command2，结束并退出程序。文本框中输入8时程序运行界面如下所示，程序代码如下：

Dim n,i,j As Integer
Dim s As String
n=Val(Text1.Text)
List1.Clear
For i=" 1" To n
s=""
For j=" 1" To①
s=②
Next j
List1.AddItem=s ‘③
Next i
(1)代码“List1.Clear”中的Clear是
（单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．方法名）

（2）为了实现上述功能，请在划线处填入合适代码
①
②
（3）程序运行时单击“输出”按钮Command1，出现下图所示的错误，为了使程序正常运行，则程序中③处的语句或表达式应更正为        

某通信部门规定：拨打市话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.22元；如果通话时间超过3分钟，则超过部分以每分钟0.11元收取通话费（计费时只计算整数分钟）。下面是根据给出的通话整数分钟计算话费的流程图和程序。
程序段：
Private Sub Command1_Click()
Dim xas integer，y as single
x = Val(Text1.Text)
If  x<=3  Then
y=0.22    
Else
y = ②
End If
Text2.text=str(y)
End Sub

请分析任务，完成如下问题。
（1）流程图中菱形表示 （选填A.数据处理/B.选择分支） 。流程图中①处应填写  。
（2）程序段中②处应填写的内容是 。
（3）在程序段中出现了Text1和Text2控件，它们同属于 类型的控件(选填A.文本框/B.列表框/

A．标签）。

若变量a=5，b=8，则逻辑表达式：(a*b<10)  and not (a="b)" or (a+3=b)的值是（ ）。

A．Ture

B．False

C．8

D．40