有关下列语句说法不正确的是（   ）
① If a="b=c" Then  Msgbox(“这三个数相等”)  Else  Msgbox(“这三个数不相等”) 
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox  (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行

《算法与程序设计》模块
Ⅰ.填空题：
（1）  代数式 对应的VB（或 JAVA）表达式为__________。
（2）  从数列23、11、19、17、65中找出数据19，若采用顺序查找法从左边第一个数开始查找，需要查找_____次。
（3）  在a、b2、c#这三个变量名中，不符合变量命名规则的是_____。
（4）程序的基本结构包括顺序结构、选择结构和循环结构。下列程序主要采用________结构，计算1到100之间的整数和。

Rem VB代码(部分) s=0 For i="1" To 100   s=s+i    Next I

//JAVA 代码(部分) int s=0; for (int i=1;i<=100;i++)   {  s=s+i;  }

 

（加试题）小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。

分数	100	99	98	97	96	95	94	…	0
个数（A数组）	2	0	0	0	1	0	3	…	0
名次（B数组）	1				3		4	…

 
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）如上表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String '存放学生姓名
Dim sScore(1 To 50) As Integer    '存放学生分数
Dim recCount As Integer   '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx =" Str(x):" nx = Len(sx)
For i =" 1" To n - nx
sx = " " + sx
Next i
__________①
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer    '存放每个分数的个数
Dim B(0 To 100) As Integer   '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i =" 0" To 100
A(i) = 0
Next i
For i =" 1" To recCount '计算每个分数的个数
___________②
Next i
mc = 1
For i =" 100" To 0 Step -1  '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
___________③
End If
Next i
List2.Clear
List2.AddItem " 姓名  分数  名次 "
List2.AddItem " ---------------- "
For i =" 1" To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub

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

Sub test3()双重循环运行 输出图形 与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （  ）

A．33333

B．55555

C．12345

D．54321