《vb综合练习题目》由会员分享，可在线阅读，更多相关《vb综合练习题目（20页珍藏版）》请在金锄头文库上搜索。
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=0X=1Do while x k Then Print iEnd 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）设计成一个子过程：PrivateSubInstert(a()AsSingle,n As Integer，xAsSingle) 有关的实现语句EndSub（2）设计另一个过程调用上述该过程，完成输入、输出。7顺序查找问题：在一个具有n个元素的有序（升序）数组A中，查找数据x，设计一个一查找函数Find，若找到则返回下标值，找不到返回-1。Private Function Find(a() As Single, n As Integer
4、，x As Single)As Integer有关的实现语句End Function设计另一个过程调用上述该过程，完成输入、输出。8数制转换问题：将一个十进制整数m转换成r进制（2或8进制）字符串。设计一个转换函数实现该功能。PrivateFunctionTrDec(m AsInteger,r AsInteger)AsString有关的实现语句EndFunction设计另一个过程调用上述该过程，完成输入、输出。9设有两个文本框TEXT1和TEXT2 ，在TEXT1中输入字符。当遇到回车键时，将刚输入的字符串，在TEXT2框中显示，请设计程序完成该功能。注意：回车键的ASCII码是13，其扫描码
5、也是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的循环次数为：63下面程序For i=1 To 2s=
6、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 3:Print 7080Case 2:P
7、rint 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程序运行后，单击命令按钮，输出结果是：159在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do until x=-1a=InputBox(请输入a的值)a
