2022年VB第一章练习题.pdf

《2022年VB第一章练习题.pdf》由会员分享，可在线阅读，更多相关《2022年VB第一章练习题.pdf（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB 第一章练习题第一章VB、NET环境与程序设计初步一、选择题1、在 Visual Studio 、NET的集成开发的环境中,下面不属于该环境编程语言的就是(C)。A、 VB B、C+ C、 Pascal D、 J# 2、在集成开发环境中有两类窗口,浮动窗口与固定窗口,下面不属于浮动窗口的就是(D)。A、工具箱窗口B、属性窗口C、立即窗口D、窗体窗口3、在 VB、NET中,在窗体上显示控件的文本,用 ( A )属性设置。A、 Text B、 Name C、 Caption D、 Image 4、不论何种控件,共同具有的就是什么属性( D )。A、 Text B、 Name C.ForeCol

2、or D.Text 5.对于窗体 ,可改变窗体的边框性质的属性就是(B)。A、MaxButton B、 FormBorderStyle C、 Name D、 Left 6、若要使标签控件显示时不要覆盖窗体的背景图案,要对 (A)属性进行设置。A.BackColor B、 BorderStyle C.ForeColor D、BackStyle 7.若要使命令按钮不可操作,要对 (A)属性进行设置。A、 Enabled B、Visible C、 BackColor D、 Text 8、要使文本框中的文字不能被修改,应对 (D)属性进行设置。A、 Locked B、 Visible C、 Enabl

3、ed D、 ReadOnly 9、要使当前Form1 窗体的标题栏显示“欢迎使用VB、NET”,以下 (B)语句就是正确的。A、Form1、Text=“欢迎使用VB、NET ”B、Me、 Text=“欢迎使用VB、NET ”C、Form1、Name=“欢迎使用VB、NET ”D、Me、 Name=“欢迎使用VB、NET”10、当运行程序时,系统自动执行启动窗体的(A)事件过程。A、 Load B、 Click C、UnLoad D、GotFocus 11、当文本框的ScrollBars属性设置了非None 值 ,却没有效果 ,原因就是 (B)。A、文本框没有内容B、文本框的MulitLine

4、属性为 False C、文本框的MulitLine 属性为 True D、文本框的Locked 属性 True 12.要判断在文本框中就是否按了Enter 键,应在文本框的(D)事件中判断。A、 Change B、 KeyDown C、 Click D、 KeyPress 13、在 VB、 NE 集成环境中创建VB、NET 应用程序时 ,除了工具箱窗口、窗体窗口与属性窗口外 ,必不可少的窗口就是(C)。A.窗体布局窗口B. 立即窗口C. 代码窗口D.监视窗口14.当创建一个项目名为“引例”的项目时,该项目的所有代码文件将保存在(C)文件夹下。A.My Documents B.VB 、引例D.W

5、indows 15.将调试通过后生成的、exe 可执行文件放到其她机器上不能运行的主要原因就是(A)。A 、运行的机器上面无VB、NET系统B 、缺少、frm 窗体文件C、 该可执行文件有病毒精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 36 页 - - - - - - - - - - VB 第一章练习题D、 以上原因都不对16、对初学者而言,调试程序方便 ,有效的手段就是( A)。A、 在可疑的代码处设置断点,逐语句跟踪B、 查瞧资料C、 通过”立即”窗口显示变量的值D、 找老师问原因17

6、、 当需要上下文帮助时,选择要帮助的“难题” ,然后按住 ( D )键 ,就可出现MSDN 窗口及显示所需“难题”的帮助信息。A 、Help B 、F10 C 、 Esc D、 F1 18、 在代码窗口 ,代码下方有蓝色波浪线表示( B) 。A 、对代码设置了格式B、 编译错误C、 逻辑错误D、 运行时错误二、填空题1、VB、NET 就是完全面向对象的程序设计语言,其最大的特点就是_。引入了、net 框架2、_技术能让编程人员不必编写代码就可以创建GUI(图形用户界面)。可视化编程技术3、_ 就是由一个或几个项目组成VB、NET程序。解决方案4、当 _特性设置后 ,浮动窗口将自动隐藏。自动隐藏

7、5、当进入VB、 NET 集成环境 ,发现没有显示“工具箱”窗口,应选择 _菜单的_选项 ,使 “工具箱” 窗口显示 ,并最好将其窗口的属性设置为_。 视图、工具箱、可停靠6、新建项目时 ,要改变默认Option 设置 ,应对 _菜单的 _的_文件夹进行相应选项的选择。7.对象属性就是指_。对象的性质来描述与反应对象特征的参数8.对象的方法就是指_。对象的动作行为。9.在刚建立项目时,使窗体上的所有控件具有相同的字体格式,应对 _的_属性进行设置。 Form font 10.属性窗口的属性可以按照_与_顺序排列。分类顺序、字母顺序11.当对命令按钮的Image 属性装入、 bmp 图形文件后

8、,按钮上并没有显示所需的图形,原因就是对 _属性设置为 _。FlatStyle 、system 12.若已建立了Form1,Form2 两个窗体 ,默认启动窗体为Form1。 通过 _菜单的 _的_选项卡 ,可将启动对象设置为Form2。项目菜单、属性、常规13.在文本框中 ,通过 _属性能获得当前插入点所在的位置。SelectionStart 14.要对文本框中已有的内容进行编辑,按下键盘上的按钮,就就是不起作用,原因就是设置了_的属性为True。readlony 15.在窗体上已建立多个控件,如TextBox1,Label1,Button1,若要使程序一运行焦点就定位在Button1 控件

9、上 ,应对 Button1 控件设置 _tabindex_ 属性的值为 _0_。16.要同时保存解决方案中的每个文件,最方便的方法就是单击工具栏的_全部保存 _按钮。第二章VB、NET语言基础与顺序结构一、选择题精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 36 页 - - - - - - - - - - VB 第一章练习题1.在一个语句内写多条语句时,每个语句之间用(B)符号分隔。A., B、 : C、 、D、 ; 2、 一语句要在下一行继续写,用 (C)符号作为续行符。A 、 + B 、

10、 - C、 _ D 、 3、 下面属于合法的变量名的就是( A )。A 、X_yz B、 123abc C 、 Integer D、X-Y 4、下面属于不合法的整常数的就是( D )、A 、 100 B、 &O100 C、 &H100 D、 %100 5、下面属于合法的字符常数的就是( B ) 。、 ABC$ B、 “ABC”C、 ABC D、ABC 6、 下面属于合法的单精度型变量的就是(A)。A、 mun！B、 sum% D、 xinte$ D、 mm# 7、下面属于不合法的双精度常数的就是(D)。、 100# B、100、 0 C、1E+2 D、100、0D+2 8、 表达式 16/4-

11、25 * 8/4 Mod 52 的值为 (B)。、数学关系表达式x10 表示成正确的VB、 NET表达式为 (B )。A.3=x10 B、 3=x AND x=3 OR x10 D、 3=x AND =0 AND a+cb+3 OR NOT d 的值就是 _。5.Int(-3 、5)、Int(3、5)、Fix(-3、5)、Fix(3、 5)、 Round(3、5)的值分别就是 _、_、_、_、_、_。6.表达式 UCase(Mid(“abcdefgh”,3,4)的值就是 _。7.在直角坐标系中,x、y 就是坐标系中任意点的位置,用 x 与 y 表示在第一象限或第三象限的表达就是 _。10、 要

12、显示当前机器内日期,函数为 _。11、计算离您毕业(假定2008 年 6 月 30 日毕业 )还有多少个星期的函数表达式就是_。12、 表示 s 字符变量就是字母字符(大小写字母不区分)的逻辑表达式为_。13、下面程序随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生 246,输出就是642。Sub Button1_Click(、 、 、 、 、 、) Handles Button1 、Click Dim x, y As Integer x=Int (_) y=(x Mod 10)*100+_+x100 MsgBox( “ x=” & x & x “ y=” &y)En

13、d Sub 第三章选择结构一、选择题1.VB、 NET提供了结构化程序设计的三种基本结构,三种基本结构就是(D)。A.递归结构 ,选择结构 ,循环结构B.选择结构 ,过程结构 ,顺序结构C.过程结构 ,输入输出结构 ,转向结构D.选择结构 ,循环结构 ,顺序结构2.按照结构化程序设计的要求,下面 (C)语句就是非结构化程序设计语句。A.if 语句B、 For 语句C、 GoTo语句D、 Select Case语句3、下面程序段运行后,显示的结果就是(A)。Dim x% If x Then MsgBox(x) Else MsgBox(x+1) A、1 B、0 C、-1 D、显示出错信息4.语句“

14、 If x=1 Then y=1” 下列说法正确的就是(C)。A、 “x=1” 与“ y=1” 均为赋值语句B.“x=1” 与“ y=1” 均为关系表达式C.“x=1” 为关系表达式“y=1” 为赋值语句D.“x=1” 为赋值语句“ y=1” 为关系表达式5.下面程序段显示的结果就是(A)。Dim x% 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 36 页 - - - - - - - - - - VB 第一章练习题x=Int(Rnd)+5 Select Case x Case 5 MsgB

15、ox(“优秀” ) Case 4 MsgBox(“良好” ) Case 3 MsgBox(“通过” ) Case Else MsgBox(“不通过” ) End Select A、 优秀B、 良好C、 通过D、 不通过6、下面 If 语句统计满足性别(sex)男、职称 (duty)为副教授以上、年龄(age)小于 40 岁条件的人数 ,正确的语句就是(D)。A、If sex= “男”And age0 Then n=n+1 B、If sex= “男”And age40 And duty=“教授”or duty= “副教授”Then n=n+1 C、If sex= “男”And age40 And

16、 Right(duty,2)= “教授Then n=n+1 D、If sex= “男”And agey, x, y) B、 If xy Then Max1=x Else Max1=y C、 Max1=Math 、Max(x, y) C、 If y=x Then Max1=y Max=x 8、 下面三个程序设计段计算学生外语附加分:外语 6 级(lang6)为 “优秀” 加 15 分, “通过” 加10 分;外语 4 级(lang4)为“优秀”加8 分,“通过”加4 分。外语附加分只能计一次最高的分数。 (A)能正确计算。A、If lang6=“优秀”Then langf=15 ElseIf l

17、ang6=“合格”Then langf=10 ElseIf lang4= “优秀”Then langf=8 ElseIf lang4=“合格” Then langf=4 End if B If lang4= “合格”Then langf=4 ElseIf lang4=“优秀”Then langf=8 ElseIf lang6=“合格”Then langf=10 ElseIf lang6=“优秀”Then langf=15 End if C、 If lang6=“优秀” Then langf=15 If lang6=“合格”Then langf=10 精品资料 - - - 欢迎下载 - - -

18、- - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 36 页 - - - - - - - - - - VB 第一章练习题If lang4=“优秀”Then langf=8 If lang4= “合格”Then langf=4 langf=0 D、 If lang4= “合格”Then langf=4 If lang4=“优秀”Then langf=8 If lang6=“合格”Then langf=10 If lang6=“优秀”Then langf=15 Else langf=0 End if 9、下面语句执行后,变量 w 中的值就是 (

19、B)。w= Choose (Weekday(“ 2005,5,1” ), “ Red” , “ Green ” , “ Blue ” , “ Yellow ”)A、 Nothing B、 “Red” C、 “ Green ” D、 “Yellow ”二、填空题1.当 C 字符串变量中第三个字符就是“C”时 ,利用 MsgBox 显示“ Yes ”,否则显示“ No” 。If_Then MsgBox(“yas”) Else MsgBox(“No”) Mid(c,3,1) = “ C”2.程序运行后输出的结果就是_。x=Int(Rnd)+3 If x28 Then y=x2+1 If x2=9 T

20、hen y=x2-2 If x20 Then MsgBox(_) Else MsgBox(“右括号多于左括号”&count1& “个” ) End If Exit Sub End If End Sub 该题中统计括号个数的变量count1 若在过程内声明,程序会产生什么结果？5.输入若干个字符,统计有多少个元音字母,有多少个其她字母,直到按 Enter 键结束 ,显示结果 ,大、小写不区分。其中Count Y 中放元音字母个数,Count C中放其她字符数。Dim CountY% , CountC% Sub TextBox1_KeyPress () Handles TextBox1、KeyPr

21、ess Dim c As Char c=_ If “ A” =c And c20 y= sqrt(3x)-2 当 10=x=20 1/2+|x| 当 x10 Sub Button1_Click(、 、 、 、) Handles Button1 、Click Dim x! , y! x=Val(TextBox1 、Text) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 36 页 - - - - - - - - - - VB 第一章练习题If_ Then y=x*x+3*x+2 ElseIf_

22、 Then y=1/2+Math 、Abs(x) Else y=Math 、Sqrt(3*x)-2 End If MsgBox( “ y=” & y)End Sub Sub Button1_Click(、 、 、 、) Handles Button1 、Click x=Val(TextBox1 、Text) Select Case x Case_ y=x*x+3*x+2 Case_ y=1/2+Math 、Abs(x) Case Else y=Math 、Sqrt(3*x)-2 End Select MsgBox( “ y=” & y)End Sub 7.输入三角形的三边a、b、c 的值 ,根

23、据其数值 ,判断能否构成三角形。若能,还要显示三角形的性质 :等边三角形、等腰三角形、直角三角形、任意三角形。Sub Button1_Click(、 、 、 、) Handles Button3 、 Click Dim x%, y%, z% x= Val(InputBox(“ input x” )y= Val(InputBox(“ input x” )z= Val(InputBox(“ input x” )If_ Then Msg(“能构成三角形”) If_ Then Msg(“就是等边三角形”ElseIf _ Then Msg(“就是等腰三角形”) ElseIf Math、 Sqrt(x*x

24、+y*y)=z Or Math 、Sqrt(y*y+z*z)=x Or Math 、Sqrt(x*x+z*z)=y Then Msg(“就是直角三角形”) Else _ End If Else MsgBox (“不能构成三角形”) End If End Sub 8.输入一个年份,判断它就是否为闰年,并显示就是否就是闰年的有关信息。判断闰年的条件精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 36 页 - - - - - - - - - - VB 第一章练习题就是 :年份能被4 整除但不能被10

25、0 整除 ,或能被 400 整除。 同时请用日期型变量的IsLeepYear成员来验证。Sub Button1_Click(、 、 、 、 ) Handles Button3 、Click Dim d As Date d=Now If_ Or d、year Mod 400=0 Then MsgBox(d、Year & “就是闰年”) Else MsgBox(d、Year & “就是平年”) End If If d、IsLeepYear(_) Then MsgBox(d、 Year & “就是闰年”) Else MsgBox(D、Year & “就是平年” ) End If End Sub 第四

26、章循环结构一、选择题1.以下 ()就是正确的For、 、 、Next 结构。A、For x=1 To Step 10 、 、 、Next x B、For x=3 To -3 Step -3 、 、 、Next x C、For x=1 To 10 re:、 、 、Next x If i=10 Then GoTo re D、For x=3 To 10 Step 3 、 、 、Next y 2、下列循环体能正常结束的就是(C)。A、i=5 Do i=i+1 Loop Until i0 D、i=6 Do i=i-2 Loop Until i=1 3、下面程序段的运行结果为()。label1、text=

27、 “”For i=3 To 1 Step -1 Label1、Text &=Space(5-i) For j=1 To 2*i-1 Label1、Text &= ” * ”Next j Label1、Text &=vbCrLf Next i A、* B、* C、* D、 * * * * * * * * * 4、当在文本框输入“ABCD ”四个字符时,窗体上显示就是(C)。Sub TextBox1_TextChanged( 、 、 、 、 、) Handles TextBox1、TextChanged Label1、Text &=TextBox 、Text End Sub A、 ABCD B、

28、A C、AABABCABCD D、A B AB C ABC D ABCD 5、下列程序段不能分别正确显示1！ 、2！ 、3！ 、4！的值的就是 ()。A、For i=1 To 4 n=1 For j=1 To i n=n*j Next j MsgBox(n) Next i B、For i=1 To 4 For j=1 To i n=1 n=n*j Next j MsgBox(n) Next i C、n=1 For j=1 To 4 n=n*j MsgBox(n) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - -

29、-第 10 页，共 36 页 - - - - - - - - - - VB 第一章练习题Next j D、n=1 j=1 Do While j=4 n=n*j MsgBox(n) j=j+1 Loop 二、填空题1.要使下列For 语句循环执行20 次,循环变量的初值应当就是: For k=_33_ To -5 Step -2 2、下面程序段显示_个“ *” 。For i=1 To 5 For j=2 To i MsgBox( “ * ”)Next j Next i 3、下列第40 句共执行了 _4_次,第 41 句共执行了 _12_次。30 For j=1 To 12 Step 3 40 F

30、or k=6 To 2 Step -2 41 MsgBox(j & “ ” & k)42 Next k 43 Next j 4、输入任意长度的字符串,要求将字符顺序倒置。例如,将输入的“ABCDEFG ”变换成“GFEDCBA ” 。Sub Button1_Click( 、 、 、 、 、 、) Handles Button1、 Click Dim a$, I%, c$, d$, n% a=InputBox$(“输入字符串”) n=_ d=”For I=1 To_ c=Mid(a,I,1) d=d & c Next I MsgBox(d) End Sub 5.找出被 3、5、7 除,余数为 1

31、 的最小的5 个正整数。Sub Button1_Click( 、 、 、 、 、 、 ) Handles Button1、Click Dim CountN% , n% CountN=0 n=1 Do n=n+1 If_ Then 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 36 页 - - - - - - - - - - VB 第一章练习题MsgBox(n) countN=CountN+1 End If Loop_ End Sub 6、有个长阶梯 ,如果每步跨2 阶最后剩1 阶,如果每步

32、跨3 阶最后剩2 阶,如果每步跨4 阶最后剩 3 阶,如果每步跨5 阶最后剩4 阶,如果每步跨6 阶最后剩5 阶,只有当每步跨7 阶时恰好走完 ,显示这个阶梯至少要有多少阶。 利用其肯定就是7 的倍数这个条件,然后根据同时满足除n 余 m(n=2,3,4,5,6;m=1,2,3,4,5)的逻辑关系即可。Sub Button1_Click( 、 、 、 、 、 、) Handles Button1、 Click Dim n%, m% For n=7 To 10000 Step 7 If n Mod 2=1 And _ Then MsgBox(n) _ End If Next End Sub 8.

33、- 某班在一周中6 天内考三门分别为x、 y、z 的考试课程 ,规定一天只能考一门 ,先考 x,后考 y,最后考 z,最后一门最早周五考。用计算机排考试,列出满足条件的方案数。Sub Button1_Click( 、 、 、 、 、 、) Handles Button1 、Click Dim x%, y%, z%, n% n=0 Label1、Text= “”For x=1 To 4 For y=_To 5 For z=5 To 6 If_ And yz Then Label1、Text &=x & space(9) & y & Space(9) & z & vbCrlf _ End If N

34、ext Next Next _ “满足条件的方案为;” & n End Sub 9.某次大奖赛 ,有 7个评委打分 ,以下程序就是针对一名参赛者,输入 7 个评委的打分分数,去掉一个最高分、一个最低分,求出平均分 ,为该参赛者的得分。Sub Button1_Click(、 、 、 、 、 、) Handles Button1、Click Dim mark!,aver!,max1!,min1! aver=0 For i=1 To 7 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 36 页 -

35、 - - - - - - - - - VB 第一章练习题mark=InputBox( “输入第” & i & “位评委的打分”) If i=1 Then max1=mark:_ Else If markmax1 Then _ End If End If _ Next i aver=_ MsgBox(aver) End Sub 第五章数组一、选择题1.如下数组声明语句中正确的就是(B。A、 Dim a3,4 As Integer B、 Dim a(3,4) As Integer C、 Dim a3,4 As Integer C、 Dim a(3 4) As Integer 2、如下数组声明语句中

36、正确的就是(B。A、 Dim (9) As Single=1,2,3,4,5,6,7,8,9,10 B、 Dim a( ) As Single=1,2,3,4,5,6,7,8,9,10 C、 Dim a( ) As Single=1,“ a” , “ bc”2、 ,4,5,6,7,8,9,10 D、 Dim a(,) As Integer=1,2,3,4,5,6,7,8,9,10 3、如下数组声明语句中,数组 a 包含元素的个数有(C。Dim a(3,0,5) A、15 B、8 C、24 D、16 4、如下程序输出的结果就是()。Dim a() As Integer=1,2,3,4,5,6,7

37、 For i=0 To UBound(a) a(i)a=(i)*a(i) Next i MsgBox(a(i) A、49 B、0 C、不确定D、程序出错5.如下程序输出的结果就是()。Sub Button1_Click(、 、 、 、 、 、) Handles Button1、Click Dim i%, j% Dim a( ) As Integer=0,1,2,3,4,5,6,7,8,9,b(3,3) As Integer Label1、Text= “”For i=1 To 3 Label1、Text &=Space(i*3) For j=i To3 b(i,j)=a(i*j) 精品资料 -

38、- - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 36 页 - - - - - - - - - - VB 第一章练习题Label1、 Text &=Space(6-Len(b(i,j) & b(i,j) Next j Label1、Text &=vbCrLf Next i End Sub A、1 2 3 B、1 C、1 4 7 D、1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 二、填空题1.在一维数组中利用移位的方法显示如图所有的结果。Sub Button1_C

39、lick(、 、 、 、 、 ) Handles Button1、Click Dim a(7) As Integer, i%, t%, j% Label1、Text= “”For i=1 To 7 a(i)=i Label1、Text &=a(i) & “ ”Next i Label1、Text &=vbCrLf For i=1 To 7 t=_ For j=6 To 1 Step -1 _ Next j a(1)=_ For j=1 To 7 Label1、 Text &=a(j) & “ ”Next j Label1、Text &=_ Next i End Sub 2、下面程序对已知数组a

40、(),删除数组中某个元素。Sub Button1_Click(、 、 、 、 、 、) Handles Button1、Click Dim a() As Integer=1,6,8,3,5,9,10,2,7,4 ,Key%, i%, j% Key=Val(InputBox(“输入要删除的值”) For i=0 To UBound(a) If_ Then For j=i+1 To UBound(a) _ Next j ReDim _ MsgBox(“删除完成” ) Exit Sub End If Next i 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载

41、名师归纳 - - - - - - - - - -第 14 页，共 36 页 - - - - - - - - - - VB 第一章练习题MsgBox(“找到不要删除的元素”) End Sub 3、矩阵相乘两个矩阵能相乘的必要条件就是:前一个矩阵的列数等于后一个矩阵的行数。例如,已知 A 为nk 的矩阵 ,B为 k m 的矩阵 ,AB的结果 C 矩阵为 nm,即: 5 10 15 5 20 350 800 A= B= 10 25 C= 20 25 30 15 30 800 1925 Sub Button1_Click(、 、 、 、 、 ) Handles Button1、Click Dim a%

42、(2,3),b%(3,2),c%(2,2),i%, j%, n%, k% Label1、Text= “”n=5 For i=1 To 2 For j=1 To 3 a(i,j)=n _ n=_ Next j Next i For i=1 To 2 For j=1 To 2 c(i,j)=0 For k=1 To 3 c(i,j)=c(i,j)+_ Next k Label1、Text &=c(i,j) & “ ”Next j Label1、 Text &=vbCrLf Next i End Sub 4、下面的程序就是将输入的一个数插入到递减的有序数列中,插入后使该序列仍有序。Sub Butto

43、n1_Click(、 、 、 、 、 ) Handles Button1、Click Dim i% , n% ,m% Dim a() As Integer=9,17,15,13,11,9,7,5,3,1 n=UBound(a) ReDim _ m= Val(InputBox(“输出欲插入的数”) For i=UBound(a) -1 To Step -1 If m=a(i) Then _ If i=0 Then a(i)=m Else _ Exit For 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第

44、15 页，共 36 页 - - - - - - - - - - VB 第一章练习题End If Next i For i=0 To _ Label1、Text &=a(i) & “ ”Next i End Sub 5、 改进的冒泡法排序。在教材中已介绍选择法、冒泡法。上例使用了插入法排序。本例使用改进的冒泡法排序,冒泡法排序在每一轮排序时将相邻的两个数比较,当次序不对就交换位置,出了内循环,最大数已沉底 ,小数上浮 ;每一轮仅使沉底的数确定了位置,有个 n 个数 ,外循环要进行n-1 轮排序。为了提高效率,若在某一轮排序时,未发生排序位置交换,说明欲排序的序列已有序,排序就可以结束。在程序中增

45、加一个逻辑变量来进行判断即可。程序如下: Sub Button1_Click(、 、 、 、 、 、) Handles Button1 、Click Dim Tag As Boolean ,n%, j%, i%, t% Dim a( ) As Integer=1,5,6,7,4,13,23,26,31,51 n=UBound(a) For i=0 To n-1 Tag=False For j=0 To n-1-i If a(j)a(j+1) Then _ _ _ a(j+1)=t End If Next j If Not Tag Then _ Next i For i=0 To UBound(

46、a) Label1、 Text &=a(i) & “ ”Next i End Sub 6、随机产生15 个不重复的A-Z之间的字母 (包括 A,Z的大写字母 ),存放在字符数组中。实现的思想就是,每产生一个字母,在数组中查找已产生的字母。若找到,刚产生的字母作废,重新产生 ;如果找不到 ,则产生字母放入数组中。Sub Button1_Click(、 、 、 、 、 ) Handles Button1、Click Dim s(14) As Char ,c As Char, n%, j% s(0)=Chr(Int(Rnd()*26+65) For n=1 To 14 re: c=_ For j=0

47、 To _ 若找到有重复字母,重新产生If s(j)=c Then _ Next j s(n)=_ 没有重复的加入数组中精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 36 页 - - - - - - - - - - VB 第一章练习题Next n For j=0 To 14 Label1、 Text &=s(j) & “ ”Next j End Sub 7、随机产生15 个 A-J的大写字母 ,按字母降序排序后,将连续出现的字母用压缩的形式显示。例如 ,连续 5 个 H 字母显示为5*H,

48、如图所示。数组a()用于存储随机产生字母。Sub Button1_Click(、 、 、 、 、 )Handles、Click Const N=14 Dim a(N) As Char ,c As Char Dim count%, i%, k% Label1、Text= “”For i=0 To N a(i)=_ Label1、Text &=a(i) & “ ”Next i Label1、Text &=vbCrLf For i=0 To N-1 k=i For j=i+1 To N If a(j)a(k) Then_ Next j c=a(i) :_ :a(k)=c Next i For i=0

49、 To N 输出排序的结果Label1、Text &=a(i) & “ ”Next i Label1、Text &=vbCrLf i=0 Do While i=N 压缩显示相同元素count=1 If iN Then j=i+1 Do While a(i)=a(j) count=_ If jN Then j=j+1 Else Exit Do Loop If count=1 Then Label1、 Text &=a(i) & “ ”Else Label1、 Text &=_ End If i=_ Loop End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - -

50、- 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 36 页 - - - - - - - - - - VB 第一章练习题第六章过程一.选择题1.设有如下说明 : Public Sub F1(ByRef n%) 、 、 、n=3 * n+4 、 、 、End Sub Sub Button1_Click (、 、 、 、) Handles Button1 、Click Dim n%, m% n=3 m=4 、 、 、调用 F1语句、 、 、End Sub 则在 Button1_Click 事件中有效的调用语句就是()。A、 F1(n + m) B、F1(m) C、F1(