程序修改题，每小题①②③④处有1处错误，找出并改正

（1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。 a = 1：b = 2 ① If a > b Then ②   c = a Else ③ c = b End If ④ Text1.Caption = Str(c) 错误在______处，改为_______________。

（2）下列程序的功能是标签Label1中显示1+2+3+…+10值。 Dim s As Integer Dim i As Integer ① s = 0 ② For i =" 1" To 10 ③   s = i Next i ④ Label1.Caption = Str(s) 错误在______处，改为_______________。

 

有如下VB程序段：
Dim x As String，y As String
Dim ans As Integer
x=“5”：y=“20”：ans = 0
If x>y Then ans = Val(x) Else ans = Val(y)
Ans = ans + Val(x+y) 
Text1.Text = Str(ans)
程序运行完后，文本框Text1中显示的是：（  ）

A．25

B．30

C．540

D．525

判断一个整数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中定义了以下函数，功能是求a和b的最大公约数。
Function gcd(a As Integer，b As Integer) As Integer
　Do While b＞0
c＝a Mod b
a＝b
b＝c
　Loop
End Function
调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是(　 )

A．函数名有错	B．变量c没有定义
C．函数没有返回值	D．b＞0应该改为b＞＝0

以下程序段语句执行后，Y的值是(   )
X=16
If  X<0  then
Y=abs(X)
Else
Y=sqr(X)
End if

A．4

B．其他三项都不对

C．16

D．256