2013vb题i1

Private Sub Command1_Click()

Dim a() As Variant, n As Integer, Key As Integer a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a)

Key = InputBox(\请输入要删除的数\For i = 0 To n

If Key = a(i) Then Exit For Next i

If i = n + 1 Then MsgBox (\找不到此数\For j = i + 1 To n a(j - 1) = a(j) Next j n =

- 1

Exit Sub

ReDim Preserve a(n) For i = 0 To n Print a(i); Next i: Print End Sub （4分）

4、* 杨辉三角形如图所示{}： * 完成下面程序。

Private Sub Form_Click()

Dim a(1 To 10, 1 To 10) As Integer, i%, j% For i = 1 To 10 a(i, 1) = 1 a(i, Next i

For i = 3 To 10 For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i

For i = 1 To 10

) = 1

For j = 1 To

Print Tab(5 * (j - 1) + 1); a(i, j); Next j Print Next i End Sub

【附图3】（4分）

5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。 * 程序代码如下：

Private Sub Command1_Click() Dim sum As Long,n As Integer sum=0

For n = 100 To 999

If duicheng(n) then sum=sum+Next n End Sub

Public Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i \\ 100 If a = c Then duicheng=true Else

duicheng=False End If End （4分）

6、* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。 * 程序代码如下：

Private Sub Command1_Click()

Dim s&, a%, b%, c% a = 0: b = 1 = a + b Print a Print b For i = 1 To 18 fib a, b, c print s = s + c Next i Print \（斐波那契）数列的前20项的和为：\End Sub Private Sub fib(a, b, c) c = a + b a = b b = c End Sub （4分） 7、* 控件属性改变，如图{}所示 Private Sub Command1_Click() If Command1.Caption = \字号\Label1. = 30 Command1.Caption = \颜色\ Label1. = vbRed Command1.Caption = \字号\End If End Sub 【附图2】（6分） 三、编程题（2道小题，共20分） 1、* 编写程序： * 统计从100-10000中，既能被7整除，也能被3整除的所有数字的个数。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 编写程序： * 在文件1.txt当中有1000个数，请对它们从小到大排序，然后打印第500个数。 （【下载文件“1.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分）

一、选择题： 1-5: ABCBC 6-10: BCDDD 11-15:AACDB 16-20:BCCBC 21-25:CBABC 26-30:ADBAC 31-35:BCABB 36-40:CBDBA 41-45:CBCAA 46-50:BDCAC 二、填空题： 1：1 a