发布时间 : 星期日 文章vb4更新完毕开始阅读
tStr = \
strL = Len(xStr) I = 1
Do While I <= strL / 2
tStr = tStr & Mid(xStr, I, 1) & Mid(xStr, strL - I + 1, 1) I = I + 1 Loop
Fun = tStr End Function
Private Sub Command1_Click() Dim S1 As String S1 = \
Print UCase(Fun(S1)) End Sub
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：
程序运行后，单击命令按钮，输出结果是
A)ABCDEF B)abcdef C)AFBECD D)DEFABC 32.某人为计算n!(0 Private Function fun(n As Integer) As Long Dim p As Long p = 1 For k = n - 1 To 2 Step -1 p = p * k Next k fun = p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3 种是正确的，错误的方案是 A)把p=1改为p=n B)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n-1 C)把For k=n-1 To 2 Step -1 改为 For k=1 T0 n D)把For k=n-1 To 2 Step -1 改为 For k=2 T0 n 33.假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For I = 1 To Len(S) s1 = LCase(Mid(S, I, 1)) + s1 Next I Fun = s1 End Function Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox(\请输入一个字符串\ Str2 = Fun(Str1) Print Str2 End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为 A)ABCDEFG B)abcdefg C)GFEDCBA D)gfedcba 34.为计算a的n次方的值，某人编写了函数power如下： Private Function power(a As Integer, n As Integer) As Long Dim p As Long p = a For k = 1 To n p = p * a Next k power = p End Function 在调试时发现是错误的，例如Print power(5,4)的输出值应该是625，但实际输出是3125。 程序需要修改。下面的修改方案中有3个是正确的，错误的一个是 A)把For k=1 To n 改为For k=2 To n B)把p=p*a 改为p=p^n C)把For k=1 To n 改为For k=1 To n-1 D)把p=a 改为p=1 35.某人编写了下面的程序 Private Sub Command1_Click() Dim a As Integer, b As Integer a = InputBox(\请输入整数\ b = InputBox(\请输入整数\ pro a pro b Call pro(a + b) End Sub Private Sub pro(n As Integer) While (n > 0) Print n Mod 10; n = n \\ 10 Wend Print End Sub 但调试时发现只输出了前2行（即2个数的反序），而未输出第3行(即2个数之和的 反序),程序需要修改。下面的修改方案中正确的是 A)把过程pro的形式参数n As Integer 改为ByVal n As Integer B)把Call pro(a+b) 改为pro a+b C)把n=n\\10改为n=n/10 D)在pro b语句之后增加语句c%=a+b,再把Call pro(a+b)改为pro c 二、填空题（每空2分，共计30分） 1.对下列二叉树进行中序遍历的结果是【1】 2.按照软件测试的一般步骤，集成测试应在【2】测试之后进行。 3.软件工程三要素包括方法、工具和过程，其中，【3】支持软件开发的各个环节 的控制和管理。 4.数据库设计包括概念设计、【4】和物理设计。 5.在二维表中，元组的【5】不能再分成更小的数据项。 6.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1,然后编写如下两个事件过程： Private Sub Command1_Click() S$ = InputBox(\请输入一个字符串\ Text1.Text = S$ End Sub Private Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic”，则在标签中显示的内容是【6】。 7.在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程： Private Sub Command1_Click() a$ = \Computer Rank Examination\ n = Len(a$) S = 0 For I = 1 To n b$ = Mid(a$, I, 1) If b$ = \Then S = S + 1 End If Next I Print S End Sub 程序运行后，单击命令按钮，输出结果是【7】。 8.为了在运行时把d:\\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为【8】 9.设有如下程序： Private Sub Form_Click() Cls a$ = \ For I = 1 To 6 Print Tab(12 - I); 【9】 Next I End Sub 程序运行后，单击窗体，结果如图所示，请填空。 10.在窗体上画一个命令按钮，其名称为Command1,然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72) pos = 0 neg = 0 For k = 1 To 10 If Arr(k) > 0 Then 【10】 Else 【11】 End If Next k Print pos, neg End Sub 以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空 12.在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer Sum = 0 n = InputBox(\a number\ n = Val(n) For i = 1 To n Sum = 【12】 Next i Print Sum End Sub Function fun(t As Integer) As Long p = 1 For i = 1 To t p = p * i Next i 【13】 End Function 以上程序的功能是，计算1!+2!+3!+...+n!,其中n从键盘输入，请填空。 14.在窗体上画一个文本框，名称为Text1,然后编写如下程序： Private Sub Form_Load() Open \For Output As #1 Text1.Text = \End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) End If KeyAscii = 13 Then If UCase(Text1.Text) = 【14】 Then Close #1 End Else Write #1, 【15】 Text1.Text = \ End If End If Sub 以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。 2008年9月计算机等级考试VB参考答案 一、选择题 1、B 2、D 3、C 4、A 5、D 6、B 7、A 8、B 9、C 10、D 11、A 12、D 13、C 14、B 15、D 16、B 17、D 18、C 19、A 20、C 21、B 22、B 23、A 24、C 25、A 26、C 27、B 28、D 29、D 30、A 31、C 32、B 33、D 34、B 35、A 二、填空题 （1）DBXEAYFZC （2）单元或模块 （3）过程 （4）逻辑设计 （5）分量 （6）BASIC （7）4 （8）Picture1.Picture=LoadPicture(\（9）Right(a$,i)或者Mid(a$,7-i) （10）pos=pos+Arr(k) （11）neg=neg+Arr(k) （12）sum+fun(i) （13）fun=p （14）”END” （15）Text1.Text或Text1