A100BLabel1.Left = Label1.Left CDLabel1.Move Label1.LeftA BC DA BC DA Private Sub Command1_Click():B Private Sub Command1_Click():C Private Sub Text1_Change():D Private Sub Text1_Click():A If a ≥ b Then t=aBIf a ≥ b Then t=a;a=b;C If a >= b Then t=aD If a >= b Then t=a:A B C D A B C DA函数的“提示信息参数”不能缺省B 函数，只能输入一个值C 回值是数值型的D 的返回值必须赋予一个变量A 如Case x ,y ,zB 如Case "a ","b","c"C 如Case 1 to 10D 如Case Is <8A B C D A B C D A B C DA B C D A B C D A B C DA窗口中选择Picture属性条，然后按回车键B Del键C 句Picture1.Picture =D 句Picture1.Picture =A B C D A B C DA age>=20 And age<=30B age>=20 0r age<=30C age<=20 And age>=30D age<=20 0r age>=30A (.vbp)B （.frm）C （.bas）D 工程文件A BC DA BC DA BC DA BCText1_KeyPress(KeyAsciiDA BC DA B C DA TestDate = #1/1/2002#B TestDate = #"1/1/2002"#C TestDate = Date("1/1/2002")D TestDate = Format("m/d/yy",A B C D A B C D AB取整并输出CD部分并输出A B C D A BC D A"12"B C"12"DA1的值相等B X + 1中去C后赋给变量XDA BC DA BC DA Const a As Single =B Const a As Integer =CConst a As Double =DA BC DA x = Int(Rnd * n) +B x = Int(Rnd * (n–mC x = Int(Rnd * m) +D x = Int(Rnd * (n-m))A B C D A B C D A B CDSin(30 * 3.14 / 180)A B C D A B C D A BC DA B C D A B C D A B C D A B C D A BD CConst G = 23 + 12Next iPrint aEnd Sub（4分）2、* 对10个100以内的整数用冒泡法按递减顺序排序。
Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Then t= a(j): a(j) = a(j + 1): a(j + 1) = tNext jNext iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub（4分）3、* 删除已知数组 a 中的某个元素。
Private Sub Command1_Click()Dim a() As Variant, n As Integer, Key As Integera = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)n = UBound(a)Key = InputBox("请输入要删除的数")For i = 0 To nIf Key = a(i) Then Exit ForNext iIf i= n + 1 Then MsgBox ("找不到此数"): Exit SubFor j = i + 1 To na(j - 1) = a(j)Next jn =n - 1ReDim Preserve a(n)For i = 0 To nPrint a(i);Next i: PrintEnd Sub（4分）4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。
Private Sub Form_Click()Dim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% 'k为最高成绩学生序号For i = 1 To 3S(i) = 0For j = 1 To 4R(i, j) = Int(30 * Rnd + 70)Print Tab((j - 1) * 5); R(i, j);S(i) = S(i) + R(i, j)Next jS(i) = S(i) / 4PrintNext imax = 0For i = 1 To 3Print "学生" & i; "平均成绩:" & S(i)If max < S(i) Thenmax = S(i)k = iEnd IfNext iPrint "最高平均成绩k="; k, "max="; maxEnd Sub（4分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。
* 程序代码如下：Private Sub Command1_Click()Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng(n) then sum=sum+nNext nEnd SubPublic Function duicheng(ByVal i%) As Booleana = i Mod 10c = i \ 100If a = c Thenduicheng=trueElseduicheng=FalseEnd IfEnd Function（4分）6、* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。
* 程序代码如下：Private Sub Command1_Click()Dim s&, a%, b%, c%a = 0:b = 1c= a + bPrint aPrint bFor i = 1 To 18fib a, b, cprint cs = s + cNext iPrint "Fibonacci（斐波那契）数列的前20项的和为："; sEnd SubPrivate Sub fib(a, b, c)c = a + ba = bb = cEnd Sub（4分）7、* 编写一个显示随机数的程序，如图{<x_2.jpg>}所示。
* 运行过程：* 点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。
Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Form_Load()Label1.ForeColor = vbWhiteLabel1.BackColor = vbGreenEnd SubPrivate Sub Timer1_Timer ( )Label1 = Val(Int(Rnd * 90000 + 10000))End Sub【附图6】（6分）1、* 编写程序：* 有一分数序列2/1，3/2，5/3，8/5，13/8，21/13，…，求这个数列的前20项和。
（保留小数点后两位）Private Sub Command1_Click()Dim i As Integer, n1 As Long, n2 As LongDim sum As Single, n As Singlesum = 0n1 = 2n2 = 1For i = 1 To 20n = n1 / n2sum = sum + nn1 = n1 + n2n2 = n1 - n2Next iPrint Format(sum, "####.00")End Sub2、 * 下载由正整数组成的文件wj5.txt，编程统计该文件中偶数元素的个数。
（【下载文件“wj5.txt”】；Private Sub Command1_Click()Dim count As Integer, t%count = 0sum = 0Open "d:\wj5.txt" For Input As 1Do While Not EOF(1)Input #1, tIf t Mod 2 = 0 Thencount = count + 1End IfLoopClose #1Print countEnd Sub。