VB综合练习题目.doc

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

2、fNext iEnd Sub3输入 10 个整数，求出它们的总和与积，并打印其中既能被 5 整除又能被 3 整除的数。4设计一个实现文件复制的程序:即将文件“C:abc.txt”复制形成文件”d:abc.txt”5利用随机函数产生 100 个 1 到 100 之间的整数存放在一个数组 a 中，按照每行 10 个数输出该数组，再将其按照由小到大的顺序排序后输出。6插入问题：在一个具有 n 个元素的有序（升序）数组 A 中，插入数据 x，插入后数列仍然有序。（1）设计成一个子过程：PrivateSubInstert(a()AsSingle,n As Integer，xAsSingle)有关的实现语

3、句EndSub（2）设计另一个过程调用上述该过程，完成输入、输出。7顺序查找问题：在一个具有 n 个元素的有序（升序）数组 A 中，查找数据 x，设计一个一查找函数 Find，若找到则返回下标值，找不到返回-1。Private Function Find(a() As Single, n As Integer，x As Single)As Integer有关的实现语句End Function设计另一个过程调用上述该过程，完成输入、输出。8数制转换问题：将一个十进制整数 m 转换成 r 进制（2 或 8 进制）字符串。设计一个转换函数实现该功能。PrivateFunctionTrDec(m As

4、Integer,r AsInteger)AsString有关的实现语句EndFunction设计另一个过程调用上述该过程，完成输入、输出。9设有两个文本框 TEXT1 和 TEXT2 ，在 TEXT1 中输入字符。当遇到回车键时，将刚输入的字符串，在 TEXT2 框中显示， 请设计程序完成该功能。注意：回车键的 ASCII 码是 13，其扫描码也是 1310设计一个程序，每间隔 1 秒，在文本框中显示数字，依次是：1 2 3 4 5 6 7 8 9 10 等等，直到显示 30 止。11设计一个程序，在窗体上当按下键盘上的“Ctrl”键并单击鼠标器的左键，然后在文本框中显示：“按下键盘上的 Ct

5、rl 键并单击鼠标器的左键” 。第二部分 分析程序，写出程序的运行结果或功能1下面程序X$=“a“Y$=“b“Z$=“c“For i=1 To 2X$=Y$Y$=Z$Z$=X$Next iPrint X$+Y$+Z$运行后的输出结果是：cbc2下面程序For i=10 To 40 step 6Print iNext i的循环次数为：63下面程序For i=1 To 2s=1For j=0 To i-1s=s+s*1Next jPrint sNext i执行后输出的结果为：244下面程序i=0n=0Do while i10s=s+ii=i+1LoopPrint “s=“;s13在窗体上画一个命令

6、按钮（其 Name 属性值为 Command1） ，然后编写如下代码：Private Sub Command1_Click()Dim a(10),p(3) As Integerk=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 T

7、o 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 jPrintNext 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

8、Then a(i+1)=（t-4 ）a(4)=1Print a(i)Next iEnd sub程序运行后，单击命令按钮，输出结果是_。12314116在窗体上画一个命令按钮(其 Name 属性值为 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 Com

9、mand1_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 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 Singl

10、ea=5b=4S a,bPrint a,bEnd Sub程序运行后，单击命令按钮，输出结果为：19阅读程序Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub command1_click()Dim a As Integera = 2For i = 1 To 3Print F(a)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为：20阅读程序Sub Sabp(b() As Integer)For i = 1 To 4b(i) = 2 * iNext

11、 iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8Sabp a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序后，单击命令按钮，输出结果为：21假定有下面的过程：Function Func(a As Integer, b As Integer) As IntegerStatic m As Integer, i As Integerm = 0i = 2i = i + m + 1m = i + a + bFunc = m

12、End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k As IntegerDim p As IntegerDim q As Integerk = 4q = 1p = Func(k, q)Print pp = Func(k, q)Print pEnd Sub程序运行后，单击命令按钮，输出结果为：22假定有以下函数过程：FunctionFun(SAsString)AsStringDim s1AsString Fori=1ToLen(S)s1UCase(Mid(S,i,1)+s1NextIFuns1End Funct

13、ion在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()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

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

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

16、Integer, b As Integera = 1b = 2Print M(a, b)End Sub程序运行后，单击命令按钮，输出结果为_。26设有如下程序Privatesubsearch(a()Asvariant,ByValkeyAsVariant,index%)DimI%ForILBound(a)ToUBound(a)Ifkeya(I)ThenindexIExitSubEndIfNextIIndex -1EndSubPrivateSubForm_Load()ShowDimb()AsVariantDimnAsIntegerbArray(1,3,5,7,9,11,13,15)Callsear

17、ch(b,11,n)PrintnEndSub 程序运行后，输出结果是_。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

18、 = Text1.Text + 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上述程序的运行结果是( )

19、。30在窗体中添加名称为Command1和名称为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 a0s=s+aa=a-1loopprint s,aEnd Sub程序运行时，单击

20、命令按钮，输出结果是：32 Private Sub Form_click( )Dim I As Integer, isum As IntegerFor I = 1 To 5isum = 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执行上

21、面的三重循环后，a 的值是多少？34 Private Sub Command1_Click()Dim a(3,2) As IntegerFor I=0 To 3For j=0 To 2a(I,j)=I*2+jPrint “a(“;I;“,“;j;“)=“;a(I,j);“ “;Next jPrintNext IEnd Sub程序运行时，单击命令按钮，输出结果是：35在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 to 4X=4 For j=1 to 3X=3For k=1 to 2X=X+6Next kNext jNext

22、iPrint XEnd Sub 程序运行后，单击命令按钮，写出输出结果：36阅读以下程序：Private Sub Form_Click()Dim k,n,m As Integern=10m=1k=1Do while k0 Thena=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是_。第三部分 用语言或流程图描述处理步骤下面给出该类题目的求解事例，供参考：例题：对于求 SUM=1+2+3+98+99+100 的计算过程，请用自然语言或流程图描述处理步骤。要求：首先给出所使用的变量名称、类型以及变量的用途：解：（1）定义所用的变量：SUM： 整型变量

23、，用于存放和值；X： 整型变量，用于存放加数，同时用于控制循环；（2）用自然语言描述的处理步骤：置初值：SUM 为 0，X 为 1；累加求和： SUM=SUM+X；获得下一个加数：X=X+1；当 X100 时重复执行、；输出 SUM，显示计算结果；过程结束。（3）用流程图描述的处理步骤：注意：在考试中， （2）和（3）选一种即可。开 始 SUM=0 X=1 SUM=SUM+X X=X+1 X=100 输 出 SUM 结 束 练习题目：要求：首先给出所使用的变量名称、类型以及变量的用途：1. 判定一个数 X 是否是偶数的处理步骤;2. 写出求 5 的阶乘的计算步骤;3. 写出求 1+2+3+ +

24、100 的计算过程;4. 写出计算 1!+2！+3！+4！+20!的计算步骤;5. 写出求一元二次方程 AX2+BX+C=0 解的处理步骤;6. 给出将三个整数 A,B,C 按从小到大的顺序排列的处理步骤 ;7. 体操运动员参加自由体操决赛，有 10 个评委为他们打分，请给出每位选手的比赛成绩的处理流程图。选手的成绩计算方法是：10 个评委分数中，去掉一个最高分和一个最低分，余下分数的平均值为选手的最后得分。假设有 20 名选手。8. 设某一个班共有 60 个学生，期末考试 5 门课程，请编一程序评定学生的奖学金，要求打印输出一、二等奖学金学生的学号和各门课成绩。（奖学金评定标准是：总成绩超过

25、全班总平成绩 20%发给一个奖学金，超过全班总平成绩 10%发给二个奖学金。 ）第四部分 综合应用题下面给出该类题目的求解事例，供参考：1设计一应用系统，完成一个教学班的学期末奖学金的评定，并输出一、二等奖学金学生的学号和各门课成绩。奖学金评定标准是：总成绩超过全班总平成绩 20%发给一个奖学金，超过全班总平成绩 10%发给二个奖学金。说明：（1）假设该教学班最多可能有 120 名学生，期末考试课程最多有 8 门课程。即规定实际教学班中，学生数目在 40-120 之间，课程数目在 4-8 之间；（2）学生人数由于某些原因可能增加、减少，成绩也可能要变更；问题：按下面的要求，问答各问题（1）根据

26、题目的描述和说明，给出该系统的功能划分（该系统至少要完成哪些功能） ；（2）给出在系统管理中，存放有关信息所必须的变量、数组、文件，并注明意义；（3）给出（画出）实现该系统的菜单界面；（4）给出菜单项中各命令菜单项所对应事件过程名及其对应的参数（不需要编写实现代码） ，说明各部分的含义；（5）给出一组数据，并给出说明该系统的使用操作过程（对于你所给出的功能都按处理次序至少要运行一次） 。该类题目的求解方式如下：解：(1)系统的功能划分： 奖 学金 评定 系统 学 生基 本信 息的 管理 报 表输 出 修 改 学 生 信 息 删 除 学 生 添 加 学 生 成 绩 录 入 排 序 （ 降 序 ）

27、 总 成 绩 计 算 成 绩管 理 形 成 （ 生 成 ） 奖 学 金 输 出 一 等 奖 学 金 输 出 二 等 奖 学 金 成 绩 修 改 （2）存放有关信息所必须的变量、数组、文件：XM(200) 姓名,字符串类型XH(200) 学号,数值类型CJ(200,8) 每个学生的单课成绩 ,数值类型ZCJ(200) 总成绩,.数值类型JXJ1(200) 获奖学金一等的学生学号JXJ1CJ(200) 对应 JXJ1 中各获奖学生的各课成绩JXJ2(200) 获奖学金二等的学生学号JXJ2CJ(200) 对应 JXJ2 中各获奖学生的各课成绩(3) 练习题目1考勤信息记录了学生的缺课情况，它包括：

28、缺课日期、第几节课、课程名称、学生姓名、缺课类型（迟到、早退、请假及旷课） 。试设计一考勤管理系统，使之能提供以下功能： 1）录入学生的缺课记录； 2）修改某个学生的缺课记录； 3）查询某个学生的缺课情况； 4）统计某段时间内，旷课学生姓名及旷课次数，按旷课次数由多到少排序； 5）统计某段时间内，有学生旷课的课程及旷课人次，按旷课人次由多到少排序； 6）系统以菜单方式工作。问题：按下面的要求，问答各问题（1）根据题目的描述和说明，给出该系统的功能划分（该系统至少要完成哪些功能） ；（2）给出在系统管理中，存放有关信息所必须的变量、数组、文件，并注明意义；（3）给出（画出）实现该系统的菜单界面；

29、（4）给出菜单项中各命令菜单项所对应事件过程名及其对应的参数（不需要编写实现代码） ，说明各部分的含义；（5）给出一组数据，并给出说明该系统的使用操作过程（对于你所给出的功能都按处理次序至少要运行一次） 。2设计一应用系统，完成一个教学班的成绩管理，并实现如下功能：1) 设置学生的成绩信息：学生学号、姓名、所选课程名称、平时成绩、期末成绩、平时成绩所占百分比 2) 计算学生总评成绩：总评成绩=平时成绩*平时成绩所占百分比+期末成绩*（1-平时成绩所占百分比） 3) 显示学生的姓名、所选课程名称以及平时成绩、期末成绩和总评成绩信息4) 利用文件存储学生成绩信息，并在程序运行开始时读入数组中；当运行结束前，再将数组中数据写入文件中；5) 编写菜单将以上功能组成一个应用系统问题：按下面的要求，问答各问题（1）根据题目的描述和说明，给出该系统的功能划分（该系统至少要完成哪些功能） ；（2）给出在系统管理中，存放有关信息所必须的变量、数组、文件，并注明意义；（3）给出（画出）实现该系统的菜单界面；（4）给出菜单项中各命令菜单项所对应事件过程名及其对应的参数（不需要编写实现代码） ，说明各部分的含义；（5）给出一组数据，并给出说明该系统的使用操作过程（对于你所给出的功能都按处理次序至少要运行一次） 。