2007年9月全国计算机等级考试二级VB语言程序设计-在线考试系统

本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！

2007年9月全国计算机等级考试二级VB语言程序设计

1、【填空题】
窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。如单击图1中的“重庆”，则与“北京”交换，得到图 2的结果。以下是可实现此功能的程序，请填空。
　

　
Private Sub Combo1_Click( )
Dim temp
temp=Combo1.Text
=Combo1.List(0)
Combo1.List(0)=temp
End Sub [每空2分]

答案： ["Combo1.List(Combo1.ListIndex)"]

2、【填空题】
设窗体有上一个名称为HScrol1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。以下是可实现此功能的程序，请填空。
Dim As Integer
Private Sub From_Load( )
pos=HScrol1.Value
End Sub
Private Sub HScroll1_Change( )
Print -pos
pos=HScroll1.Value
End Sub [每空2分]

答案： ["pos","HScroll1.Value"]

3、【填空题】
设窗体上有一个名称为CD1的通用对话框、一个名称为Text1 的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框中的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。以下是实现此功能的事件过程，请填空。
Private Sub Command1_Click( )
CD1.Filtetr="文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex=1∶CD1.ShowOpen
If CD1.FileName<>“ “ Then
Open For Input As #1
Line Input #1,ch$
Close #1∶Text1.Text=
End If
End Sub [每空2分]

答案： ["CD1.FileName","ch$"]

4、【填空题】
下列程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。如输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1。请填空。
Private Sub Command1_Click( )
Dim x As Integer
x=InputBox("请输入一个正整数")
While x>
Print x Mod 10;
x=x\10
Wend
Print
End Sub [每空2分]

答案： ["9","x"]

5、【填空题】
有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框，如图所示。
　

　
合法编号的组成是：前2个字符是大写英文字母，第3个字符是“_”，后面是数字字符（至少1个）。以下程序可实现此功能，请填空。
Private Sub Text1_LostFocus( )
Dim k%,n%
n=Len( )
For k=1 To IIf(n>3,n,4)
c=Mid(Text1.Text,k,1)
Select Case k
Case 1,2
If c<"A" Or c>"Z" Then
MsgBox("第"& k &"个字符必须是大写字母！")
SetPosition k∶Exit For
End If
Case 3
If c<>"_"Then
MsgBox("第"& k &"个字符必须是字符” “_” “)
SetPosition k∶Exit For
End If
Case Else
If c<"0" Or c>"9" Then
MsgBox("第"& k &"个字符必须是数字！")
SetPosition k∶Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=Pos-1
Text1.SelLength=
Text1.
End Sub [每空2分]

答案： ["Text1.Text或Text1","1","SetFocus"]

首页 1 2

共2页，共45个题库