[IT认证]2013计算机上机题库

1、；题目一：基本操作题第1套题解析.(1)【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求"单击滚动条上滚动框以外的区域移动刻度大小"则由LargeChange属性设置；标签标题显示由Caption属性设置。【操作步骤】 步骤1：打开Visual Basic，按照题目的要求新建窗体并添加一个水平滚动条控件。 步骤2：在属性窗口中，设置水平滚动条的名称为H1,然后设置其LargeChange的值为10，

2、Max的值为100，Min的值为1。 步骤3：再在窗体上水平滚动条的左右两端的下方添加两个标签控件Label1和Label2。步骤4：在属性窗口中将Label1的名称设置为L1，将Caption属性设置为1;再将Label1的名称设置为L2，将Caption属性设置为100.程序中用到的控件及属性见表3.1。步骤5：按下键盘上的F5键运行程序。步骤6：保存工程，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。【举一反三】可以通过第40套第一大题的第二小题来进行同类知识点的练习。(2)【解题思路】在编辑窗体中单击右键选择"菜单编辑器"来创建菜单，在菜单的C

3、lick事件中，通过对Text2.Text属性的设置来完成对于内容的清除和复制。【操作步骤】步骤1：新建窗体，按表3.2建立菜单项并设置其属性。步骤2：菜单项设置完成后，单击"确定"按钮。步骤3：添加文本框控件，按照表3.3设置文本框的属性。表3.3控件属性设置值文本框1Name NameText1文本框2Text2步骤4：编写程序代码。参考答案Private Sub Clear_Click() Text2.Text = "" End SubPrivate Sub Copy_Click() Text2.Text = Text1.Text End Sub步

4、骤5：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第32套第一大题的第一小题来进行同类知识点练习。题目二：简单应用题(1)【解题思路】通过文本框的Name属性设置文本框名称；在窗体上添加单选按钮，通过Name属性设置名称，右击单选按钮进行复制，弹出对话框，选择创建单选按钮数组，并通过Caption属性设置每一个单选按钮的标题；通过命令按钮Name和Caption属性分别设置命令按钮的名称和标签；设置两个字符型变量a、b，a "我坐"，b "我开"，用于Select Case选择语句的字符串连接；通过对单选按钮数组Index属性查询，实现

5、单击单选按钮完成字符串连接和文本框显示操作的功能。【操作步骤】步骤1：打开本题工程文件，在窗体中添加一个单选按钮数组，包含3个单选按钮。再添加一个文本框。步骤2：按照题目要求设置控件的属性，见表3.4。步骤3：分析并编写程序代码。Private Sub Op1 Click(Index As Integer)Dim a As String, b As String, c As String a = "我坐"b = "我开"'Select Case ?Case 0Text1.Text = a Me.Op1(0)Caption "去"

6、;Case 1' Text1.Text = ? Me.Op1(1)Caption "去"Case 2Text1.Text = b Me.Op1(2)Caption "去"End Select End Sub程序结束参考答案第一个？处填入：Index 第二个？处填入：a【举一反三】可以通过第41套第二大题第二小题来进行同类知识点的练习。(2)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要

7、检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：文本框名Text = 显示的内容。在VB程序中，Open语句用于打开数据文件，打开顺序文件的基本格式为：Open FileName For Mode As #FileNumber。其中，FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出，Append用于追加写入，Input用于读取；FileNumber为打开文件时指定的句柄。读文件操作在窗体的Load事件过程中完成，写文件操作在命令按钮的Click事件过程

8、中完成。【操作步骤】步骤1：打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。步骤2：为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表 3.5和表3.6。步骤3：分析并编写程序代码。程序提供代码Private Sub Form Unload(Cancel As Integer)Open "out4.txt" For Output As #1Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1End Sub程序结束参考答案Private Sub C1_Cl

9、ick() Text1.Text = "我是" If Op1.Value Then Text1.Text = Text1.Text & Op1.Caption Else Text1.Text = Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text = Text1.Text & Op3.Caption Else Text1.Text = Text1.Text & Op4.Caption End If End Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三

10、】可以通过第43套第二大题第一小题来进行同类知识点练习。题目三：综合应用题【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中最后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第1个元素开始。【操作步骤】步骤1：打开本题工程文件。步骤2：编写程序代码。参考答案Private

11、 Sub Command1_Click() Dim a() As Long Dim i As Integer Dim n As Integer For i = 0 To Op1.Count - 1 If Op1(i).Value = True Then n = Val(Op1(i).Caption) Exit For End If Next ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n)End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举

12、一反三】可以通过27套第二大题第二小题来进行同类知识点的练习。第2套题解析题目一：基本操作题(1)【解题思路】通过标签的Caption和Name属性设置标题和名称；通过文本框Name、Height、PasswordChar和Width属性分别设置文本框的名称、高度、显示"*"字符和宽度；通过窗体Caption属性设置窗体的标题"密码窗口"。【操作步骤】步骤1：新建一个窗体，在窗体中添加一个标签，名称设置为L1，将标签的Caption属性设置为"请输入密码"。然后再添加一个文本框，设置其名称为Text1,然后设置其Height属性为30

13、0，设置其Width属性为2000，设置其PasswordChar属性为"*"。最后将Form1的Caption属性设置为"密码窗口"。步骤2：调试并运行程序。步骤3：设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm，最后保存工程。【举一反三】可以通过第9套第一大题第二小题来进行同类知识点的练习。(2)【解题思路】通过图边框Name属性设置图片框的名称，运用图片框Print方法，使图片框上显示字符，运用窗体Print方法，使窗体上显示字符。【操作步骤】步骤1：新建一个窗体，然后在窗体上添加一个图片框。图片框的的属性见表3.7。表3.7步

14、骤2：编写程序代码。参考答案Private Sub Form_Click()控件属性设置值图片框Name P1 Form1.Print "单击窗体"End SubPrivate Sub P1_Click() P1.Print "单击图片框"End Sub步骤3：调试并运行程序，然后设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm，最后保存工程。 【举一反三】可以通过第5套第一大题第二小题来进行同类知识点练习。题目二：简单应用题(1)【解题思路】工程文件中已建立全部控件，只需编写事件过程即可。Timer1控件的Interval属性用来控制

15、计时器事件发生的时间间隔，通过题意可知，该属性设置为100(Interval是以毫秒为单位)。当单击"发射"按钮时开始计时，将计时器控件的Enabled属性设置为True。如果使航天器即P1停止移动，则将计时器控件的Enabled属性设置为False。【操作步骤】步骤1：按题目要求打开工程文件，设置计时器属性,将Enabled属性设置为False，并将Interval属性设置为100。步骤2：分析并编写程序代码。程序提供代码Private Sub C1_Click()'Timer1.Enabled = ?End SubPrivate Sub Timer1_Timer

16、() Static a%a = a =+1'If P1.Top > P2.Top P2.? Then P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.HeightElse'Timer1.Enabled = ?End IfEnd Sub程序结束参考答案第1个？处填入：True 第2个？处填入：Height第3个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第25套第二大题第二小题来进行同类知识点的练习。(2)【解题思路】通过For循环语句实现xn()的乘幂运算；Click事件过程中通过V

17、al()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call语句调用SaveResult函数对于结果进行保存，涉及文件的Open、Close和Output操作，最后将结果保存在文件夹下的 out4.dat文件中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1 To m 'tmp = ?Next 'xn = ?End Function

18、 Private Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To n t = x + i'z = z +？Next 'Label1.Caption = ?Call SaveResultEnd SubPrivate Sub SaveResult()Open App.Path & "out4.dat" For Output

19、As #1 Print #1, Label1.CaptionClose #1End Sub程序结束参考答案第1个？处填入：tmp*a第2个？处填入：tmp第3个？处填入：xn(t, i)第4个？处填入：z步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按照题目要求保存工程和窗体文件。 【举一反三】可以通过第22套第二大题第二小题来进行同类知识点练习。题目三：综合应用题【解题思路】除了1和它本身以外，不再有别的约数，这种整数叫做素数。判别某数m是否是素数的经典算法是：对于m，依次判别能否被I(I2,3,4，m1)整除，只要有一个能整除，m就不是素数，否则m是素数。本题须统计数据中素数的个

20、数和所有素数中的最小素数。自定义函数过程prime用来判断是否为素数，返回True则为素数，反之则为非素数，通过对于返回值的判断确定素数，并进行个数统计及查找最小值。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Private arr(100) As IntegerPublic Function prime(x As Integer)k = Int(Sqr(x) + 5)For i 2 To kIf x Mod i = 0 Then prime = FalseExit FunctionEnd IfNext prime = True End Function Pr

21、ivate Sub Command1_Click()Open App.Path & "in5.txt" For Input As #1 For i = 1 To 40 Input #1, arr(i)Next Close #1End SubPrivate Sub Command2_Click()'考生编写程序开始'考生编写程序结束Open App.Path & "out5.txt" For Output As #1Print #1, Label3.Caption, Label4.Caption Close #1End Su

22、b程序结束参考答案 Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next 步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。 【举一反三】可以通过第37套第三大题来进行同类知识点练习。第3套题解析题目一：基

23、本操作题 (1)【解题思路】文本框控件的MultiLine属性用于设置文本框是否显示多行文本，值为True表示是，值为False则表示否；ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、1、2、3四种值，0表示没有滚动条(默认值),1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如"*")屏蔽用户在文本框中键入的内容，常用于口令输入。【操作步骤】步骤1：新建一个窗体，然后在窗体中添加两个文本框。步骤2：在属性窗口中设置各控件的属性，控件的属性见表3.8和表3.9。步骤3：调试并运

24、行程序，然后保存工程，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。【举一反三】可以通过第31套第一大题的第一小题来进行同类知识点练习。(2)【解题思路】图像框(Image)控件的Picture属性用于在设计阶段时装载在图像框中显示的图片，它的Stretch(自动伸缩)属性用来设定载入其中的图片是否需要自动调整，以适应图像框的大小。图像框的宽和高分别由其Width属性和Height属性设置。本题要在单击按钮时实现"放大"或"缩小"的功能，应在程序中动态设置图像框大小(即宽和高)，即在其原来基础上增加或减小图像框的宽和高。【操作步骤】

25、步骤1：新建一个窗体，然后在窗体中添加一个图像框和两个命令按钮。步骤2：为窗体中的各控件设置属性，控件的属性见表3.10和3.11。表3.10 控件图像框属性Name WidthHeightPictureStretch设置值Image117001900pic1.bmp True控件命令按钮1表3.11 命令按钮2属性Name CaptionNameCaption设置值步骤3：编写程序代码。参考答案Private Sub C1_Click()C1放大C2缩小 Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100

26、End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub步骤4：调试并运行程序，然后保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm。 【举一反三】可以通过第36套第一大题第一小题来进行同类知识点练习。题目二：简单应用题(1)【解题思路】Fix函数删除 number参数的小数部分并返回以整数部分。格式为：Fix(number)，number参数可以是任意有效的数值表达式。如果 number参数包含 Null，则返

27、回 Null。Val 函数返回包含于字符串内的数字，语法：Val(string)，必要的 string参数可以是任何有效的字符串表达式。循环遍历数组a，通过调用Function 过程判断是否为水仙花数，并通过If语句对于数值进行比较，如果 max < a(i) 那么max a(i)，最小值同理。在设置变量初值时，max1，min1000。目的是方便比较数的大小。因为数组中的数值最小的是0，最大的是999，那么，让max先1，小于数组中的最小值，在程序执行过程中，只要有水仙花数，就一定会大于max，这样才会赋值给max，min1000也是同样的道理！【操作步骤】步骤1：打开本题工程文件。步

28、骤2：分析并编写程序代码。程序提供代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "in3.dat" For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click() '需考生编写End Sub'以下Function 过程用于判断某数是否为水仙花数Function isnarc(p As Integer) x =

29、 Fix(p / 100)y = Fix(p - x * 100) / 10)z = p - x * 100 - y * 10If p = x 3 + y 3 + z 3 Thenisnarc = True Elseisnarc = FalseEnd IfEnd Function Private Sub Form Unload(Cancel As Integer)Open App.Path & "out3.dat" For Output As #1 Print #1, Val(Text1.Text)Print #1, Val(Text2.Text)Close #1E

30、nd Sub程序结束参考答案 Dim i As Integer Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i) Then If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i Text1 = max Text2 = min步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按题目要求存盘。【举一反三】可以通过第11套第三大题来进行同类知识点练习。(2)【解题

31、思路】本题主要考查组合框的属性及For循环语句的使用。Mod取模运算，就是求余数，比如： 10 mod 3 1因为10除以3等于3余1，结果就是余数。如果a mod b0，则说明a能被b整除，反之a mod b<>0，则a不能被b整除。组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可在设计阶段通过其List属性添加，每输入完一项后按<CtrlEnter>键换行再输入下一项；其Text属性用于设置或返回其文本框部分当前的文本。根据题意，用For逐一循环5000内的整数，通过If语句的条

32、件表达式：i Mod n0，判断各个数是否能被n整除，把能被整除的数累加到变量sum。i为循环变量，n的值为Val(Cb1.Text)。【操作步骤】步骤1：打开本题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。步骤2：设置窗体中控件的属性，控件的属性见表3.12。 表3.12步骤3：分析并编写程序代码。程序提供代码窗体代码Private Sub Form_Unload(Cancel As Integer)unload subEnd Sub模块代码Sub unload sub()Open "out4.dat" For Output As #1Print #1,

33、Val(Form1.Cb1.Text), Val(Form1.Text1. Text) Close #1End Sub程序结束参考答案Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Then sum = sum + i End If Next i Text1.Text = sum End Sub步骤4：调试并运行程序，关闭程序后按题目要求存盘 【举一反三】可以通过第4套第二答题第二小题来进行同类知

34、识点练习。题目三：综合应用题【解题思路】本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Text1或Text2)获得焦点触发的GotFocus事件过程中，用窗体变量which记录下该文本框序号(1或2)。通过"编辑"菜单的Click事件过程中首先根据which的值不同，来判断相应文本框(Text1或Text2)的内容是否为空，若内容为空则设置"剪切"和"复制"菜单项不可用，否则设置"剪切"和"复制"菜单项可用；其次判断Text3文本框的内容是否为空，若内容为空则设置"粘贴&q

35、uot;菜单项不可用，否则设置"粘贴"菜单项可用。在"复制"命令的单击事件过程中，根据which的值不同，将相应文本框(Text1或Text2)中的内容复制到Text3文本框中。在"剪切"命令的单击事件过程中除应执行与"复制"命令相同的语句外，还应执行清除当前文本框中内容的语句。在"粘贴"命令的单击事件过程中，也要根据which值的不同，将Text3文本框中的内容接入相应文本框中的原内容之后。【操作步骤】步骤1：打开本题工程文件，将Text3的Visible属性设置为False，然后按照题目要求

36、建立菜单并设置其属性。菜单属性如表3.13所示。控件表3.13 编辑剪切复制粘贴名称EditCutCopy Paste内缩符号步骤2：分析并编写程序代码。程序提供代码Dim which As IntegerPrivate Sub copy_Click()If which = 1 ThenText3.Text = Text1.Text ElseIf which = 2 Then Text3.Text = Text2.Text End IfEnd SubPrivate Sub cut_Click()If which =1 ThenText3.Text = Text1.Text Text1.Text

37、 = ""ElseIf which = 2 Then Text3.Text = Text2.Text Text2.Text = ""End IfEnd SubPrivate Sub edit_Click()'If which = ? Then If Text1.Text = "" Then cut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = True Copy.Enabled = TrueEnd If'ElseIf which = ? Then If Tex

38、t2.Text ="" Then cut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = True Copy.Enabled = TrueEnd IfEnd IfIf Text3.Text = "" Then Paste.Enabled = FalseElsePaste.Enabled = TrueEnd IfEnd SubPrivate Sub paste_Click()If which = 1 Then0111' Text1.Text = ? ElseIf which = 2 Then

39、 ' Text2.Text = ? End IfEnd SubPrivate Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1which = 1 End SubPrivate Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2which = 2 End Sub程序结束参考答案第1个？处填入：1第2个？处填入：2第3个？处填入：Text1.Text Text3.Text 第4个？处填入：Text2.Text Text3.Text 步骤3：调试并运行程序，关闭程序后按题

40、目要求存盘。 【举一反三】可以通过第8套第二大题第一小题来进行同类知识点的练习。第4套题解析题目一：基本操作题(1)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。通用对话框是一种ActiveX控件，在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下：执行"工程"菜单中的"部件"命令，打开" 部件"对话框。在对话框中选择 "控件" 选项卡，然后在控件列表框中，选择"MicrosoftCommon DialogControl 6.0&q

41、uot;。单击"确定"按钮，通用对话框立即被加到工具箱中，通用对话框的属性可以在属性窗口中直接设置。当通用对话框显示为"打开"或"另存为"类型时，其FileName属性用于返回或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为 *.txt，表示显示所有的文本文件。语法为"对象名Filter"描述|文件扩展名""。打开顺序文件的基本格式为"Open FileName For Mode As #FileNumber"

42、;。FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。【操作步骤】步骤1：新建一个窗体，在窗体中设置一个命令按钮和一个通用对话框。在属性窗口中设置控件的属性，控件的属性见表3.14和3.15。表3.14 控件属性设置值命令按钮Name CaptionCommand1打开文件步骤2：编写程序代码。参考答案Private Sub Command1_Click() CD1.ShowOpen End Sub步骤3：调试并运行程序，保存工程，设置工程文件名为sjt1.vbp,设置窗体

43、文件名为sjt1.frm。【举一反三】可以通过第14套第一大题第二小题来进行同类知识点的练习。(2)【解题思路】在Visual Basic中，按钮的标题由Caption属性设置。通过代码要使命令按钮向左移动100，须用到按钮的Left属性，使其值在每单击一次按钮时减去100。【操作步骤】步骤1：新建一个窗体，在窗体中添加一个命令按钮。命令按钮的属性见表3.16。表3.16 控件属性设置值步骤2：编写程序代码。参考答案Private Sub Command1_Click()命令按钮Name CaptionCommand1移动本按钮 Command1.Left = Command1.Left -

44、100End Sub步骤3：调试并运行程序，保存工程，设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm。 【举一反三】可以通过第31套第一大题第二小题来进行同类知识点的练习。题目二：简单应用题(1)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。命令按钮和标签的标题用属性窗口中的Caption属性设置。要使Text1的文本框没有初始内容，须将属性窗口中的Text属性设为空。要在下拉式组合框中输入内容，则在属性窗口中，通过对下拉式组合框的List属性进行设置。AddItem方法用来向组合框中添加一个列表项，其格式为：组合框AddItem 列表项 索引ListC

45、ount属性用来返回组合框中列表项的个数。【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件并设置控件属性。程序中用到的控件及属性设置见表3.17和3.18步骤2：分析并编写程序代码。参考答案Private Sub Command1_Click() Combo1.AddItem Text1End SubPrivate Sub Command2_Click() Print Combo1.ListCountEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第27套第二大题第一小题来进行同类知识点练习。(2)【解题思路】根据题意，首先要确定移动的位数，移动的位数

46、是通过单选按钮来选择的，移动的值是由单选按钮的Caption属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数确定的。使用Mid函数取出字符串中的字符，利用Asc函数返回字符的代码，利用String函数将字符代码转换成字符。Mid函数的格式为：Mid(字符串，p，n)。其中，Mid函数从第p个字符开始，向后截取n个字符，p和n都是算术表达式。Mid函数的第三个变量可以省略，这样将第p个字符开始向后截取到字符串的结尾。String()函数用于重复指定字符串中的字符，返回新的字符串。Asc()函数用于返回一个 Integer，代表字符串中首字母的字符代码【操作步骤】步骤1：打开本题工程

47、文件。步骤2：分析并编写程序代码。程序提供代码Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As String For k = 0 To 2 If Op1(k)Value Then'n = Val(Op1(k). ? )End IfNext km = Len(Text1.Text)a = ""'For k = 1 To ?'c = Mid$(Text1.Text, ? , 1)c = String(1, Asc(c)

48、 + n)If c > "z" Or c > "Z" And c < "a" Then c = String(1, Asc(c) - 26)End If' ？= a + cNext kText2.Text = aEnd Sub程序结束参考答案第1个？处填入：Caption第2个？处填入：m第3个？处填入：k第4个？处填入：a步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过23套第二大题第二小题来进行同类知识点的练习。题目三：综合应用题【解题思路】首先理清程序提供代码的思路，然后修改程序

49、并编写代码。在循环语句中Step表示步长，可以为正数表示下一个变量加一个数，也可以为负数。在默认情况下，步长为1。"冒泡法"是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。从程序提供的代码中可以看出，整型数组a的使用范围是本窗体中的所有事件过程，用来存放从文件中读取的数据。在排序中，使用双重循环，外循环每循环一次，确定内循环循环的次数，内循环就是把本次循环中最大的数，放在数组的最后面，这样就可以实现对这50个数的升序排

50、序。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Dim a(50) As IntegerPrivate Sub C1_Click()Dim k As Integer, ch As StringOpen "in5.dat" For Input As #1ch = ""For k = 1 To 50 'Input #1, ?ch = ch + Str(a(k) + " "Next kClose #1'Text1.Text = ?End SubPrivate Sub C2_Click()En

51、d SubPrivate Sub C3_Click()Open "out5.dat" For Output As #1Print #1, Text2.TextClose #1End Sub程序结束参考答案第1个？处填入：a(k)第2个？处填入：ch"排序"按钮的代码Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = "" For i = 50 To 2 Step -1 For j = 1 To 4

52、9 If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + "" Next j Text2.Text = chEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过49套第三大题来进行同类知识点练习。第5套题解析题目一：基本操作题 (1)【解题思路】通过标签的Name 、Caption属性设置标签的名称和标题，通过文本框Name、Text属性设置文本框的名称和文本，通过命令按钮的Name 、Caption属性设置命令按钮的名称和标题，"&"和""运算符均可将两个表达式作字符串连接。在窗体上输出文本内容可使用Print方法。【操作步骤】步骤1：新建一个窗体，在窗体中