《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