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

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

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

1、【填空题】
窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timerl，直线的名称为Linel。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。
　

　
1）Timerl的Interval属性的值应事先设置为
2）Private Sub Command1_Click()
Timerl.Enabled=True
End Sub
Private Sub Timerl_Timer()
If Imagel.Left>= Then
Imagel.Left= -100
End If
End Sub [每空2分]

答案： ["100","Line1.x1","image1.left"]

2、【填空题】
设窗体上有一个名称为Combo1的组合框，并有以下程序：
Private Sub Combol_KeyPress (KeyAscii As Integer)
If =13 Then ' 回车符的ASCII码是13
For k=0 To Combo1.ListCount-1
If Combo1.Text=Combo1.List(k) Then
Combo1.Text = ""
Exit For
End If
Next k
If Combo1.Text <> "" Then
Combo1.AddItem
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。 [每空2分]

答案： ["keyascii","combox1.text"]

3、【填空题】
在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。
Private Sub Command1_Click()
Dim ch$, ascii As Integer
Open "myfile.txt" For As #1
While Not EOF(1)
Line Input #1, ch
ascii=toascii( )
Print ascii
Wend
Close #1
End Sub
Private Function toascii (mystr$) As Integer
n=0
For k=1 To
n=n+Asc（Mid（mystr,k,1））
Next k
toascii=n
End Function [每空2分]

答案： ["input","ch","len(mystr)"]

4、【填空题】
本程序实现文本加密。先给定序列：al，a2，…，an，它们的取值范围是l～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。
例如：若给定序列al，a2，…，a7分别为2，5，3，7，6，l，4
当文本为“PROGRAM”时，加密后的文本为“APOMRRG”
当文本为“PROGRAMMlNG”时，加密后的文本为“APOMRRGMING”
当文本为“THANK”时，加密后的文本为“*TA*HKN”
下面的过程code实现这一算法。其中参数数组a()中存放给定序列（个数与数组a的元素个数相等）al，a2，a3，…的值，要加密的文本放在参数变量 mystr 中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。
Option Base 1
Private Sub code (a () As Integer, mystr As String)
Dim ch As String, cl As String
n=UBound(a) -Len(mystr)
If n>0 Then
mystr=mystr & strings(n, "*")
End If
ch = mystr
For k= To UBound(a)
cl=Mid(mystr, k, 1)
n=
Mid$(ch,n)=c1
Next k
mystr=ch
End Sub [每空2分]

答案： ["1","a(k)"]

首页 1 2

共2页，共44个题库