《VB综合练习题目》word版

1、第一部分 程序设计部分程序设计题的设计格式及其处理步骤：（1）先画出处理界面（窗体），并注明各控件的名称；（2）再给出处理步骤，（3）写出程序代码：下面给出该类题目的求解事例，供参考：例如：设计程序，求1+2+3+.+N的和值。其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：标签2：Label2标签1：Label1命令按钮1：Command1文本框2：TEXT2文本框1：TEXT1运算结果计算请输入N （二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N，s，x，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N；（3）s=0（累加前，

2、将变量s初始化为0）；（4）X=1（设置循环的开始值）（5） 当X=N 时 重复执行 S=s+x X=X+1（6）在文本框2中显示和值S（三）编写有关的代码： Private Sub Command1_Click() Dim n%，s%，x% N=val(text1.text) S=0 X=1 Do while x k Then Print i End IfNext iEnd Sub3输入10个整数，求出它们的总和与积，并打印其中既能被5整除又能被3整除的数。4设计一个实现文件复制的程序:即将文件“C:abc.txt”复制形成文件”d:abc.txt”5利用随机函数产生100个1到100之间的

3、整数存放在一个数组a中，按照每行10个数输出该数组，再将其按照由小到大的顺序排序后输出。6插入问题：在一个具有n个元素的有序（升序）数组A中，插入数据x，插入后数列仍然有序。（1）设计成一个子过程：Private Sub Instert(a() As Single,n As Integer，x As Single) 有关的实现语句End Sub（2）设计另一个过程调用上述该过程，完成输入、输出。7顺序查找问题：在一个具有n个元素的有序（升序）数组A中，查找数据x，设计一个一查找函数Find，若找到则返回下标值，找不到返回-1。Private Function Find(a() As Singl

4、e, n As Integer，x As Single)As Integer有关的实现语句End Function设计另一个过程调用上述该过程，完成输入、输出。8数制转换问题：将一个十进制整数m转换成r进制（2或8进制）字符串。设计一个转换函数实现该功能。Private Function TrDec(m As Integer,r As Integer)As String有关的实现语句End Function设计另一个过程调用上述该过程，完成输入、输出。9设有两个文本框TEXT1和TEXT2 ，在TEXT1中输入字符。当遇到回车键时，将刚输入的字符串，在TEXT2框中显示，请设计程序完成该功能。

5、注意：回车键的ASCII码是13，其扫描码也是1310设计一个程序，每间隔1秒，在文本框中显示数字，依次是：1 2 3 4 5 6 7 8 9 10 等等，直到显示30止。11设计一个程序，在窗体上当按下键盘上的“Ctrl”键并单击鼠标器的左键，然后在文本框中显示：“按下键盘上的Ctrl键并单击鼠标器的左键”。第二部分 分析程序，写出程序的运行结果或功能1下面程序X$=aY$=bZ$=cFor i=1 To 2X$=Y$Y$=Z$Z$=X$Next iPrint X$+Y$+Z$运行后的输出结果是：cbc2下面程序For i=10 To 40 step 6Print iNext i的循环次数为

6、：63下面程序For i=1 To 2s=1For j=0 To i-1s=s+s*1Next jPrint sNext i执行后输出的结果为：244下面程序i=0n=0Do while i32i=(i+1)*(i+1)n=n+1LoopPrint n运行后的结果为“45下面程序For I=1 To 3If I=1Thena=3If I=2Thena=2If I=3Thena=1Print aNext IPrint I运行时输出的结果是：11146下面程序段Dim xx=Int(Rnd)+4Select Case xCase 5:Print 90100Case 4:Print 8090Case

7、 3:Print 7080Case 2:Print 6070Case 1:Print 060End Select显示的结果是：80907下面程序段For i=1 To 3 Step 1Print Spc(5-i)For j=1 To 2*i-1Print *Next jPrintNext i运行结果为：*8在窗体上画一个命令按钮，然后编写如下事件过程：Prinate Sub Command1_click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结

8、果是：159在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do until x=-1a=InputBox(请输入a的值)a=Val(a)b=InputBox(请输入b的值)b=Val(b)x=InputBox(请输入x的值)x=Val(x)a=a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1,则输出结果为：210在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Form1_Load()Text1.Text=Text1.Se

9、t FocusFor i=1 To 10sum=sum+iNext iText1.Text=sumEnd Sub上述程序的运行结果是：11在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程：Private Sub Command1_Click()x=0Do while x10 s=s+i i=i+1LoopPrint s=;s13在窗体上画一个命令按钮（其Name属性值为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(10),p(3) As Inte

10、gerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是： 3314在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(4,4)For i=1 To 4For j=1 To 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(i,j);Next j P

11、rintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为：9 1012 1315在窗体上画一个命令按钮（其Name属性值为Command1），然后编写如下代码：Private Sub Command1_Click()Dim a(5)For i=0 To 4a(i)=i+1t=i+1If t=3 ThenPrint a(i)a(t-1)=a(i-2)Elsea(t)=a(i)End IfIf i=3 Then a(i+1)=（t-4）a(4)=1Print a(i)Next iEnd sub程序运行后，单击命令按钮，输出结果是_。12314116在窗体上画一个命令按钮(其Name

12、属性值为Command1)，然后编写如下代码：Private Sub Command1_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Print M(2+M(x)End Sub程序运行后，单击命令按钮，输出结果是_4_。17在窗体上画一个命令按钮(其Name属性值为Command1)，然后编写如下代码：Private Sub Command1_Click()Dim a(5,5)For i=1 To 3For j=1 To 4a(i,j)=i*jNext jNext iFor n=1 To 2For m=1 To 3Print

13、 a(m,n)Next mNext nEnd Sub程序运行后，单击命令按钮，输出结果是_。12324618假定有如下的Sub过程：Sub s(x As Single,y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea=5b=4S a,bPrint a,bEnd Sub程序运行后，单击命令按钮，输出结果为：19阅读程序Function F(a As Integer) b = 0 Static c b = b +

14、 1 c = c + 1 F = a + b + cEnd FunctionPrivate Sub command1_click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为：20阅读程序Sub Sabp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) =

15、 7 a(4) = 8 Sabp a() For i = 1 To 4 Print a(i) Next iEnd Sub运行上面的程序后，单击命令按钮，输出结果为：21假定有下面的过程：Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b Func = mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim k As

16、 Integer Dim p As Integer Dim q As Integer k = 4 q = 1 p = Func(k, q) Print p p = Func(k, q) Print pEnd Sub程序运行后，单击命令按钮，输出结果为：22假定有以下函数过程：Function Fun(S As String) As StringDim s1 As String For i=1 To Len(S)s1UCase(Mid(S,i,1)+s1Next IFuns1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click

17、()Dim Str1 As String, Str2 As StringStr1 = InputBox(请输入一个字符串)Str2 = Fun(Str1)Print Str2End Sub程序运行后，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为：23建立一个窗体，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Form_KeyPre

18、ss(KeyAscii As Integer) Print Chr(KeyAscii)End Sub在一般情况下（即不按住Shift键和锁定大写）运行程序，如果按“A”键，则程序的输出是：24在窗体上画一个命令按钮，然后编写如下程序：Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num 10 Loop fun = kEnd FunctionPrivate Sub Command1_Click() Dim n As

19、 Long Dim r As Long n = InputBox(请输入一个数) n = CLng(n) r = fun(n) Print rEnd Sub程序运行后单击命令按钮，在输入对话框中输入“234”，输出结果为_。25在窗体上画一个命令按钮，然后编写如下程序：Function M(x As Integer, y As Integer) As Integer M = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b)

20、End Sub程序运行后，单击命令按钮，输出结果为_。26设有如下程序Private sub search(a() As variant,ByVal key As Variant,index%)Dim I%For ILBound(a) To UBound(a)If keya(I) ThenindexIExit SubEnd IfNext IIndex-1End SubPrivate Sub Form_Load()ShowDim b() As VariantDim n As IntegerbArray(1,3,5,7,9,11,13,15)Call search(b,11,n)Print nEn

21、d Sub 程序运行后，输出结果是_。27在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( )For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是( ) 。28在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Cmd1），然后编写如下两个事件过程：Private Sub Cmd1_Click( )a = Text1.Text

22、 + Text2.TextPrint aEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为( )29在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load( )Text1.Text=For i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是( ) 。30在窗体中添加名称为Co

23、mmand1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码： Private Sub Command1_Click() Text1.Text = AB End Sub Private Sub Command2_Click() Text1.Text = CD End Sub 首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示（ ） 31 Private Sub Command1_Click( ) a=5: s=0do while a0 s=s+a a=a-1loopprint s,aEnd Sub程序运行时，单击命令按钮，输出结果是：32 Pr

24、ivate Sub Form_click( )Dim I As Integer, isum As IntegerFor I = 1 To 5 isum = sum(I) Print isum=; isum,Next IEnd SubPrivate Function sum(n As Integer)Dim j As Integerj = j + nsum = jEnd Function程序运行时，单击窗体，输出结果是：33阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a 的值是多少？

25、34 Private Sub Command1_Click()Dim a(3,2) As IntegerFor I=0 To 3For j=0 To 2 a(I,j)=I*2+j Print a(;I;,;j;)=;a(I,j); ; Next j PrintNext IEnd Sub程序运行时，单击命令按钮，输出结果是：35在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 to 4 X=4 For j=1 to 3 X=3 For k=1 to 2 X=X+6 Next k Next j Next i Print X E

26、nd Sub 程序运行后，单击命令按钮，写出输出结果：36阅读以下程序：Private Sub Form_Click()Dim k,n,m As Integern=10m=1k=1Do while k=nm=m*2k=k+1LoopPrint mEnd Sub程序运行后，单击窗体，输出结果为_。37阅读程序：Private Sub Form_Click()num=0Do while num=2num=num+1print numLoopEnd Sub程序运行后，单击窗体，输出结果是_。38在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=

27、0For i=1 To 2For j=1 To 4If j Mod 20 Then a=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是_。第三部分 用语言或流程图描述处理步骤下面给出该类题目的求解事例，供参考：例题：对于求SUM=1+2+3+98+99+100的计算过程，请用自然语言或流程图描述处理步骤。要求：首先给出所使用的变量名称、类型以及变量的用途：解：（1）定义所用的变量： SUM： 整型变量，用于存放和值； X： 整型变量，用于存放加数，同时用于控制循环；（2）用自然语言描述的处理步骤：置初值：SUM为0，X为1；累加求和： SUM=S

28、UM+X；获得下一个加数：X=X+1；当X100时重复执行、；输出SUM，显示计算结果；过程结束。（3）用流程图描述的处理步骤：注意：在考试中，（2）和（3）选一种即可。练习题目：要求：首先给出所使用的变量名称、类型以及变量的用途：判定一个数X是否是偶数的处理步骤;写出求5的阶乘的计算步骤;写出求1+2+3+. +100的计算过程;写出计算1!+2！+3！+4！+.+20!的计算步骤;写出求一元二次方程AX2+BX+C=0解的处理步骤;给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;体操运动员参加自由体操决赛，有10个评委为他们打分，请给出每位选手的比赛成绩的处理流程图。选手的成绩计算

29、方法是：10个评委分数中，去掉一个最高分和一个最低分，余下分数的平均值为选手的最后得分。假设有20名选手。 设某一个班共有60个学生，期末考试5门课程，请编一程序评定学生的奖学金，要求打印输出一、二等奖学金学生的学号和各门课成绩。（奖学金评定标准是：总成绩超过全班总平成绩20%发给一个奖学金，超过全班总平成绩10%发给二个奖学金。）第四部分 综合应用题下面给出该类题目的求解事例，供参考：1设计一应用系统，完成一个教学班的学期末奖学金的评定，并输出一、二等奖学金学生的学号和各门课成绩。 奖学金评定标准是：总成绩超过全班总平成绩20%发给一个奖学金，超过全班总平成绩10%发给二个奖学金。说明：（1

30、）假设该教学班最多可能有120名学生，期末考试课程最多有8门课程。即规定实际教学班中，学生数目在40-120之间，课程数目在4-8之间；（2）学生人数由于某些原因可能增加、减少，成绩也可能要变更；问题：按下面的要求，问答各问题（1）根据题目的描述和说明，给出该系统的功能划分（该系统至少要完成哪些功能）；（2）给出在系统管理中，存放有关信息所必须的变量、数组、文件，并注明意义；（3）给出（画出）实现该系统的菜单界面；（4）给出菜单项中各命令菜单项所对应事件过程名及其对应的参数（不需要编写实现代码），说明各部分的含义；（5）给出一组数据，并给出说明该系统的使用操作过程（对于你所给出的功能都按处理次序至少要运行一次）。该类题目的求解方式如下：解：(1)系统的功能划分：（2）存放有关信息所必须的变量、数组、文件： XM(200) 姓名,字符串类型 XH(200) 学号,数值类型 CJ(200,8)