在VB程序中，如果要在一行内写多条语句时，语句之间应该用 分隔。

读下面VB程序段，
Dim j  As Integer, k  As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（ ）

A．输出1到100以内的所有的质数

B．输出1到100以内的所有的奇数

C．输出1到100以内的所有的偶数

D．输出1到100以内所有的完全平方数

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

判断一个整数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）代码调试后，发现在 ② 处少语句 ，应填写___________________

某算法的部分流程图如图所示，若n输入的值为1，则变量s的值是多少？如将循环体“s=s+n和n=n+2”交换顺序，则s值又是多少？

A．25、26

B．26、25

C．36、36

D．26、36

某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100。现要求找出成绩最高的学生的得分。如果有多个符合要求的学生，只输出学号排在前面的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩。实现上述功能的VB代码如下，请补全代码。
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max =    ①       （1分）
For i =" 2" To n
if     ②     (2分)
Next i
Text1.Text = "成绩最高分是：" + Str(max)
End Sub
(1)程序中①画线处应填入    。
(2)程序中②画线处应填入    。

有如下 V B 程序段：
Dim s(1 To 6) As String
Text1.Text = ""
For i =" 1" To 5
For j =" i" + 1 To 6
If s(i) + s(j) < s(j) + s(i) Then
t =" s(j):" s(j) =" s(i):" s(i) = t
End If
Next j
Next i
For i =" 1" To 6
Text1.Text =" Text1.Text" + s(i)
Next i
如果程序运行，一开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（ ）

A．434331224612121	B．434331224612112
C．343312246121124	D．121122463123434

某对分査找算法的VB程序段如下：
i=" 1" :  j =9  :  n ="0"
key="Val(" Textl.Text)
Do While i <= j[ZXXK]
m="(i" + j) \ 2
If  key = d(m)  Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为

A．End If	B．If key < d(m) Then
C．ElseIf key < d(m) Then	D．If key > d(m) Then

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

每一个小写英文字母的 ASCII 码都比相对应的大写英文字母的 ASCII 码要大 32。编写 VB程序，实现如下功能：在文本框 Text1 中输入一串字符，单击“转换”按钮后，在文本框 Text2 中输出经过大小写字母互换的字符串， 其它非英文字母的字符均保持不变， 同时在 Label3 中输出字符的总个数及经过大小写互换的英文字母个数，运行界面如图所示，

（1）要使程序运行时窗体的标题显示为“大小写字母转换”,则需在事件处理过程中编写代
码“Form1.Caption = "大小写字母转换"”。 （单选，填字母：

A．Form1_Click /

B．Form_Load /

C．Command1_Click /

D．Command1_DblClick ）

（2）为实现上述功能，程序代码如下，请完善代码。
Private Sub Command1_Click()