考试网 >> IT认证 >> 等级 >> 二级考试 >> 2005年9月全国计算机二级VB笔试试卷（含参考答案）

2005年9月全国计算机二级VB笔试试卷（含参考答案）

发布时间：2006-07-25 12:10 点击：

分页:上一页 1 2 3 4 5 6 7 8 9 [10] 下一页

　　 s = 【7】

　　 End If

　　 c = Chr$(Asc(c) 【8】 )

　　 Wend

　　 If s <> "" Then

　　 Text1 = s

　　 End If

　　End Sub

　　

　　（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。

　　

　　

　　

　　

　　Private Sub Command1_Click( )

　　 Dim r As Integer, n As Integer

　　 n = Text1

　　 r = Text2

　　 Text3 = fun(n) / fun(【9】 ) / fun(r)

　　End Sub

　　Function fun(n As Integer) as long

　　 Dim t As Long

　　【10】

　　 For k = 1 To n

　　 t = t * k

　　 Next

　　 fun = t

　　End Function

　　

　　（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

　　

　　Private Sub Command1_Click( )

　　 Dim k As Integer

　　 Dim sum As Single, max As Single, min As Single

　　 sum = Text1(0)

　　 max = Text1(0)

　　 min = 【11】

　　 For k = 【12】 To 6

　　 If max < Text1(k) Then

　　 max = Text1(k)

　　 End If

　　 If min > Text1(k) Then

　　 min = Text1(k)

　　 End If

　　 sum = sum + Text1(k)

　　 Next k

　　 Text2 = (【13】 ) / 5

　　End Sub

　　

分页:上一页 1 2 3 4 5 6 7 8 9 [10] 下一页

版权申明:未经书面授权请勿转载本站信息!!作品版权归所属媒体与作者所有!!

发表评论：

匿名发表

用户名:

查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任
留言板管理人员有权保留或删除其管辖留言中的任意内容
本站提醒：不要进行人身攻击。谢谢配合。