全国计算机等级考试二级VB上机试题及答案（十一）

【试题源程序】

1 Private Sub Command1_Click() 2 Text2.Text = \3 Dim n As Integer 4 Dim i As Integer 5 Dim m As Integer 6 Dim Str As String 7 Dim StrText As String 8 For i = 0 To 2

9 If Option1(i).Value Then 10 ′ n=Val(?.Caption) 11 End If 12 Next i

13 m = Len(Text1.Text) 14 For i = 1 To m

15 ′ Str=Mid$(Text1.Text,?,1) 16 ′ Str=?(1,Asc(Str)+n)

17 If Str > \18 Str = String(1, Asc(Str) - 26) 19 End If

20 StrText = StrText + Str 21 Next i

22 Text2.Text = StrText 23 End Sub 24

25 Private Sub Command2_Click() 26 Dim s As String

27 Open App.Path & \28 Input #1, s 29 Text1.Text = s 30 Close #1 31 End Sub

****************************************************************

参考答案与分析

【解析】

第一个？处填Option1(i)，表示如果第i个单选框被选中，则把第i个单选框的Caption转换成数值赋给n。Mid表示从字符串指定的位置截取指定的字符。第二个？处填i，表示从字符串第i个字符处向右截取1个字符，这为转化这个字符做准备。第三个？处填String，表示返回指定数量的指定字符串，它的第一个参数确定返回字符串的个数，第二个字符串确定返回的字符。注意，String函数的第二个参数，可以是Ascii码值，返回对应的字符。 【答案】

1．单击考试界面的\功能\选项，从弹出的菜单中选择\启动应用程序\选项。Visual Basic启动后，打开考生文件下的工程文件。

2.将文本框Text1与Text2的MultiLine属性设为True,ScrollBars属性设为2。 3.双击窗体的任何部分，进入程序编写窗口，补充程序如下： 第一个？处填Option1(i) 第二个？处填i

第三个？处填String

4．填写完毕，删除\′\符号，调试程序，确定无误后，将工程与窗体按照原来的文件名保存在考生文件夹下。