If InStr(str, c) = 0 Then
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
（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
Private Sub Command1_Click()
Dim k As Integer, n As Integer, found As Boolean
found = False
n = Len(【14】 )
k = 0
While k < List1.ListCount And Not found
If Text1 = Left$(List1.List(k), n) Then
Text2 = 【15】
found = True
End If
k = k + 1
Wend
If Not found Then
Text2 = "查无此人"
End If
End Sub
2005年9月全国计算机等级考试二级VB笔试试卷（含参考答案）
选择题
【 1- 5】 CACDC 【 6-10】 DAABB
【11-15】 BCCDC 【16-20】 CABBA
【21-25】 DAADC 【26-30】 ADBAC
【31-35】 CCDAB
填空题
【1】数据库系统 【2】空间 【3】驱动模块
【4】32 【5】存储结构 【6】30
【7】s&c 【8】-1 【9】n-r
【10】t=1 【11】text1(0) 【12】1
【13】（sum-max-min） 【14】text1.text 【15】list1.list(k)
上一页 [1] [2] [3] [4] [5] [6]
|
ChinaITLab收集整理 
2006-3-11 
相关文章