发布时间 : 2024/5/23 13:30:32 星期四 文章HNCE网上考试系统 v9第一套更新完毕开始阅读4ec8ff087cd184254b3535e0

Dim a As Single a = For i = 1 To 7 a = * i Next i Print a End Sub （4分）

2、* 对10个100以内的整数用选择法按递增顺序排序。 Private Sub Command1_Click() Dim a(10) As Integer, t As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i) = Int( * 101) Print a(i); Next i: Print For i = 1 To 9 For j = i + 1 To If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i For i = 1 To 10 Print a(i); Next i: Print End Sub （4分）

3、* 删除已知数组 a 中的某个元素。 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 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, ) = 1 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 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、* 下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。 * 程序代码如下： Dim nt As Single Private Sub aa(ByVal n As Single) Dim i As Integer nt = 1 For i = 1 To n nt = nt * i Next i End Sub Private Sub Form_Click() Dim sum As Single, n As Integer sum = 0 For n = 1 To 9 Step 2 aa () sum = sum + Next n Print sum End Sub （4分）

7、* 编写一个显示随机数的程序，如图{}所示。 * 运行过程： * 点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = End Sub Private Sub _Load() Label1.ForeColor = vbWhite Label1.BackColor = vbGreen End Sub Private Sub Timer1_() Label1 = Val(Int(Rnd * 90000 + 10000)) End Sub 【附图1】（6分）

三、编程题（2道小题，共20分） 1、* 编写程序： * 求1+（1+2）+（1+2+3）+??前100项的和。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序

2、* 编写程序：

* 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中奇数的个数。

（【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分）

必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序