将以下程序段补充完整。
问题:往一个足够大的盒子里放小球,第一次放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个”
当前题号:1 | 题型:填空题 | 难度:0.99
现要求编写VB程序,实现下列功能:计算一个大写字母在26个字母中的位次。程序运行时,在文本框Text1中输入一个大写英文字母,单击“计算”按钮Command1,在标签Label1上输出其在26个字母中的位次。

1图
(1)在进行应用程序界面设计时,需要添加“计算”按钮,可使用如第2图所示的“控件工具箱”中的 (填写相应编号),并在如第12题-3图所示的“属性窗口”中,将 属性值设置为“计算”。

(2)该程序的源代码如下,请根据题意将代码补充完整,使程序能正常运行。
Private Sub Command1_Click()
Dim ch As String, pos As Integer
 (3) =Text1.Text
pos=Asc(ch) – 64
Label2.   (4)  =”第”+Str(pos)+”个字母”
End Sub
当前题号:2 | 题型:填空题 | 难度:0.99
编写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年对应的“天干地支”为 ,“生肖”是
当前题号:3 | 题型:填空题 | 难度:0.99
下列判断x≤1的VB表达式中,正确的是( )。
A.x<1 and x=1B.not x>1C.x <=1D.x<1 or x=1
当前题号:4 | 题型:选择题 | 难度:0.99
构成一个循环结构,需要有:循环的初始状态、___________、循环体这三个要素。
当前题号:5 | 题型:填空题 | 难度:0.99
某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 5B.a (i) =" i" * i
C.Next ID.List1.AddItem Str (a (i))
当前题号:6 | 题型:选择题 | 难度:0.99
编写VB程序,实现如下功能:窗体装载时随机生成10个1至100的整数,并显示在列表框list1中,单击“分组”按钮command1,将这10个数分为奇数和偶数两组,在list2中显示奇数数字,及其个数,list3中显示偶数数字,及其个数。运行界面如第22题图所示,程序代码如下。

第22题图
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer 
Private Sub     ②  ()   '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) =    ③       '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④    
Else
List3.AddItem Str(a(i))
⑤   
End If
Next i
List2.AddItem  "共有奇数" + Str(ji) + "个"
List3.AddItem  "共有偶数" + Str(ou) + "个"
End Sub
(1)观察运行界面,选项中没有用到的控件是 ①   ( 选项A. B. C.
A.)。
(2)划线②处应填的事件是
(3)划线处③的代码应该是:   ③    (填选项号)。
A. Int(Rnd()+100)*1
B. Int(Rnd()+1)* 100
C.Int(Rnd() * 100) + 1

(4)请为④、⑤划线处填入合适的代码,④: ,⑤:  
当前题号:7 | 题型:填空题 | 难度:0.99
以下可以作为Visual Basic变量名的是(  )
A.7sevenB.F1_1C.DoD.Abs
当前题号:8 | 题型:选择题 | 难度:0.99
有如下VB程序段:
Dim i As Integer, c As String, s As String, t As String
s = "2012 Hero": t = ""
For i = 1 To Len(s)
c= Mid(s, i, 1)
If c >= "a" And c <= "z" Then t = t + c
Next i
Text1.Text = t
该程序段运行后,文本框Text1中显示的内容是()
A.2012B.HeroC.eroD.2012 H
当前题号:9 | 题型:选择题 | 难度:0.99
下列表达式中值最大的是()
A.Abs( -5) +Len("ABCDE")
B.val((Mid("SHANG2016HAI",6,2))
C.Int(2*sqr(36) +0.5)/3
D.5^2 Mod 25 \ 2^2
当前题号:10 | 题型:选择题 | 难度:0.99