编写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

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ①  ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1） 程序中①处填入的代码是：  
（2） 程序中②处填入的代码是下列哪个选项（ ）

A．t

B．t-max

C．t-max+1

D．t-max-1

下列VB表达式，只能产生-100到100之间（包括-100和100）随机数的是（    ）

A．int(rnd*101)

B．int(rnd*1-100)+100

C．int(rnd*200)-100

D．int(rnd*201)-100

判断一个整数n(>=3)是否为素数；提示：将一个不小于3的整数n分别除以2到n的平方根之间的所有整数，如果全部除不尽，那么n为素数（质数），否则本为非素数（合数）
编写程序如下：
Sub Form_Click(  )
Dim n As Interger
n=InputBox(“请输入一个正整数（n>=3):”）
k=Int(Spr(n))
i=2
Swit=0
While i<="k" And Swit =0
If  ①    then  Swit =1
Else i=i+1
Wend
If  Swit="0" Then Print n;”是一个素数”
Else Print  n;”不是一个素数”
②
End Sub
（1） 函数Sqr(n)的功能是___________________
（2） 语句Swit="1" 在这段程序中执行___________次
（3） 可用于接受用户输入文本，又可用于显示文本的控件是_____________
（4） VB中保存工程文件的文件扩展名为__________________
（5） 想在程序后面加上注释，应用到_____________符号
（6） 变量K的数据类型定义为_________________(integer或string)
（7） 在这段程序中，所用到的循环语句为__________________
（8） 认真阅读程序，在 ①序号出应补充的语句是________________
（9） Swit是一个标志变量。_______标志着n未被任何一个正整数整除过
（10）代码调试后，发现在 ② 处少语句 ，应填写___________________

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁，a₂，…，a_n，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁，a₂，…，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While  sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

小明编写一个模拟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 “ ③  ”
方框中正确的语句是（ ）。

A．①中“验证成功”

B．②中“输出用户名或密码有误”

C．②中“验证成功”

D．③中“输出验证码错误”

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：


(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub

有如下Visual Basic程序段：
A＝“Happy new year！”
B＝Len(A)\2
C＝63 Mod 10
Text1.Text＝Mid(A，B，C)
该程序运行后文本框text1显示的内容为(  )

A．3	B．new
C．B	D．Mid(A，7，3)

下列VB表达式的值等于18的是（ ）

A．int(17.9)

B．Len("17") + 1

C．Sqr(17)

D．Abs(-17) + 1