在VB中，x=10，则执行下列语句的结果是print  "a=";a

A．a=10

B．a=a

C．10

D．10=10

将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个……，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。
Dim n as integer , sum as integer 
n=0  
sum=0  
Do While sum<=300
n =____   ①  ______
sum =____  ②____   
Loop
Print “放到第” & ___   ③___  & “次盒子里的小球才能多于300个”

编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

（1）代码“Private Sub Command1_Click（）”中的Click是 （单选，填字母：A、对象名   B、属性名   C、事件名）
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛任癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 10
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem  + "年    " + c1 + c2 + " " + c3
Next i
End Sub
（3）由上述算法可知，2024年对应的“天干地支”为 ，“生肖”是 。

某VB程序在调试中弹出如图所示的错误窗口，此时程序正执行的语句是（）

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

A．For i =" 1" To 5	B．a (i) =" i" * i
C．Next I	D．List1.AddItem Str (a (i))

上面这段程序描述的是已知圆半径r，计算面积s。当运行时，输入半径1，输出的面积与实际结果出现了偏差，程序和运行结果如下所示。
导致出现此问题的语句编号是 ，应该改成    。

在Visual Basic中，下列属于字符串的是（）。

A．Val("100")

B．"int(100)"

C．sqr(100)

D．1/2^3

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如甲图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（乙图) 中将Caption属性的属性值修改为“___________”。
（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

D．i < f

（1）某省实施《中华人民共和国道路交通安全法》办法中规定，机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的，处于二百元罚款。超过百分之五十（未造成交通事故）的，处五百元罚款，每多超过五公里，加处二百元罚款，不足五公里的忽略不计，但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下：
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1．5 * v0 Then
x = 200
ElseIf v > 1．5 * v0 Then
x =" 500" + Int((v - 1．5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
（1）运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为  。
（2）如下一段Visual Basic程序：
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时，点击Command1时，Label1上显示的是 。

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如下图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While '（1）  

i <=" n" - 1 Or flag = True

flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop

Str(i)

Label3.Caption = "排序过程的加工遍数为" +    '（2）

For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub

完全数又称完美数或完备数，指它所有的真因子(即除了自身以外的约数)的和恰好等于它本身，例如6=1+2+3。完成下列程序，查找并输出1000以内的完全数。

程序中划线处应填入的语句是(1)____________ ___ (2)__________________
Private sub command1_click
Dim  n as integer
Dim  i as integer
Dim  s as integer
For n="2" to 1000
S=0
For i="1" to n\2
If ____(1)_____   then s=s+i
Next i
If s=n  then  list.AddItem  str(n)
__(2)______
End sub