VB程序设计习题集(附答案)

更新时间：2024-04-28 17:45:01 阅读量：综合文库文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

vb程序设计题库及答案推荐度：
相关推荐

VB程序设计习题集

附答案

班级学号姓名

VB简介 ............................................................................................................................................ 1 程序代码基础 ................................................................................................................................... 4 选择结构程序设计 ........................................................................................................................... 9 循环结构程序设计 ......................................................................................................................... 11 数组 ................................................................................................................................................ 13 过程 ................................................................................................................................................ 19 常用控件......................................................................................................................................... 23 文件 ................................................................................................................................................ 27 根据题目要求完善程序 ................................................................................................................. 28 根据程序写运行结果 ..................................................................................................................... 36 综合应用题..................................................................................................................................... 40 答案 ............................................................................................................................................ 4051

VB简介

1、在以下有关对象属性的叙述中，不正确的是___________。 A、一个对象的属性可分为外观、行为若干类 B、不同属性可能具有不同的数据类型

C、一个对象的所有属性都可在属性窗口的列表中进行设置 D、属性窗口中的属性列表既可按字母排序也可按类别排序

2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。

A、文本框 B、命令按钮 C、窗体 D、标签

3、有程序代码“Text1.Text=\Basic\”，其中的Text1、Text和“Visual Basic”分别代表___________。

A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值

4、用窗体的___________属性来设置窗体的标题。 A、Caption B、Style C、Text D、Name

5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。以下的___________语句可以使文本框内显示的内容为：5+7=12。

A、Text1.Text = a + b + c B、Text1.Text = \

C、Text1 = a & \

D、Text1 = \

6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。 A、OK、Cmd B、Cmd、OK

C、CmdOK、OK D、OK、CmdOK

7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。 A、Form_Load B、Form1_Load C、frm_Load

D、Me_Load

8、下列有关对象属性的说法正确的是___________。 A、对象所有的属性都罗列在属性窗口列表中 B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同

D、对象的某些属性既可以在属性窗口中设置，也可以在程序代码中设置 9、一个对象可以执行的动作与可被对象识别的动作分别被称为___________。 A、事件、方法 B、方法、事件 C、属性、方法 D、过程、事件

10、下列有关算法的叙述中，___________是不正确的。 A、算法中执行的步骤可以无休止的执行下去 B、算法中的每一步操作必须含义明确 C、算法中的每一步操作都必须是可执行的 D、算法必须有输出

11、对象可以识别和响应的某些行为称为___________。

A、方法 B、继承 C、属性 D、事件

12、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮从窗体上消失。

A、Visible B、Enabled C、DisabledPicture D、Default

13、将文本框的___________属性设置为True时，文本框可以输入或显示多行文本。 A、MultiLine B、ScrollBars C、Text D、Enabled 14、下面___________对象无Caption属性。

A、Form B、CommandButton C、TextBox D、Label 15、决定控件上文字的字体、字形、大小、效果的属性是___________。 A、Text B、Caption C、(名称) D、Font 16、结构化程序设计有三种基本结构，不包括___________。

A、顺序结构 B、模块结构 C、选择结构 D、循环结构 17、一个对象所能做的事情称为对象的___________。

A、方法 B、继承 C、属性 D、封装

18、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮不能响应用户的鼠标事件。

A、Visible B、Enabled C、DisabledPicture D、Default

19、当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的 ___________属性设置为True。

A、AutoSize B、WordWrap C、Visible D、Enabled 20、下面控件中，没有 Caption 属性的是___________。

A、复选框 B、单选按钮 C、组合框 D、框架 21、任何控件都具有___________属性。

A、Text B、Caption C、(名称) D、ForeColor

22、窗体上有多个控件，在Form_Activate（）事件过程中添加___________语句，就可以确保每次运行程序时，都将光标定位在文本框Text1中 A、Text1.Text=\

B、Text1.SetFocus

C、Text1.GetFocus D、Text1.Visible=True

23、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是___________。 A、用鼠标右键单击此按钮 B、按键盘上的Esc键 C、按键盘上的回车键 D、用鼠标右键双击此按钮

24、如下选项中，___________不是VB提供的程序控制结构。 A、顺序结构 B、选择结构 C、重复结构 3

D、树型结构

程序代码基础

?b?b2?4ac2a1、数学表达式对应的Visual Basic表达式为__________。

A、-b + Sqr(b * b - 4 * a * c) / 2 * a

B、-b + Sqr(b * b - 4 * a * c) / (2 * a) C、(-b + Sqr(b * b - 4 * a * c) )/ 2 * a D、(-b + Sqr(b * b - 4 * a * c) )/ (2 * a)

2、Visual Basic中可以同时删除字符串前导和尾部空格的函数是__________。 A、Ltrim B、Rtrim C、Trim D、Mid

3、设A=7，B=4，C=6，则表达式A Mod 3 + B ^ 3 / C \\ 5的值为__________。 A、出错 B、3 C、2 D、1

4、在Form_Click事件中执行如下语句的结果是__________。 Print Format(1236.54, \A、123456

B、+123,654.0% C、+123,6.54% D、+123,654

5、语句Print \的输出结果是__________。 A、\

B、出现错误信息 C、5*20 D、100

6、窗体上放置了三个文本框，若在Text1中输入123，在Text2中输入78，在程序中执行了语句Text3 = Text1 + Text2后，则在Text3中显示__________。

A、434 B、12378 C、溢出 D、语法错误 7、表达式Val(“abcdfg123e1234”)的值为__________。

A、 789 B、1234 C、0 D、表达式错

8、假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是__________。 A、BOOL ='TRUE' B、BOOL =.TRUE.

C、BOOL =#TRUE# D、BOOL = True

9、函数Cint、Int、 Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是

__________。

A、CInt(-5.59)=Int(-5.59)< Fix(-5.59) B、Int(-5.59)

10、表达式Int(91*Rnd+20)的最大值是__________。

A、10 B、90 C、 99 D、110 11、能正确返回正整数N的数据位数的语句是__________。

A、Len(N) B、Len(Str(N)) C、Len(CStr(N)) D、Len(Val(N)) 12、如下四个符号，可以作为VB合法变量名的是__________。

A、5_f B、 _5flg C、 User%s D、 N1 13、下列表达式中运算结果为True的是__________。 A、\B、Int(134.69) < CInt(134.69)

C、78.9 / 35.77 <= 97.5 / 43、87 And -45.4 > -4.98 D、Str(32.345) = CStr(32.345)

14、表达式6.5 * 5 Mod 28 \\ 8的值是__________。

A、0 B、1 C、2 D、3

15、能正确描述条件“A、B之一为零但不得同时为零”的VB逻辑表达式是__________。 A、A = 0 Or B = 0 B、A * B = 0 And A + B <> 0 C、A * B = 0 Or A + B <> 0 D、A = 0 And B = 0

16、如下语句中，不能正常执行的是__________。 A、Print 5＋7＝100 B、Print 3245343＋23233

C、Print 3423/89 D、Print 32765＋3

17、假设变量Lng为长整形变量，下面不能正常执行的语句是__________。 A、Lng=16384*2 B、Lng=4*0.5*16384

C、Lng=190^2 D、Lng=32768*2

18、设a=“Visual Basic”,下面使b的值为“Basic”的语句是__________。 A、b=Left(a,8,12) B、b=Mid(a,8,5)

C、b= Right(a,5,5) D、b=Left(a,8,5)

19、下面所列四组数据中，全部是正确的VB常数是__________。 A、32768 1、34D2 \ &O1767 B、3276 123.56 1、2E-2 #True#

C、&HABCE 02-03-2002 False D-3 D、ABCDE #02-02-2002# E-2 #True# 20、表达式Int(5*Rnd+10)的最小值是__________。

A、9 B、 10 C、 11 D、12

21、将数学表达式cos2(a+b)+5e2是写成Vb表达式的正确形式是__________。 A、Cos(a+b)^2+5*Exp(2) B、Cos ^2(a+b) +5*Exp(2) C、Cos (a+b) ^2 +5*e^2 D、Cos ^2(a+b) +5*Ln(2)

22、假设变量myd为日期时间型变量，下面不能正常执行的语句是__________。 A、myd = 12:23:30

B、myd =#10/22/2010 3:30:32 PM#-1 C、myd = #10/22/2010 3:30:32 PM# D、myd =#10/22/2010 3:30:32 PM#+1 23、数学表达式

a?b对应的正确Visual Basic表达式为__________。 a?bA、a-b/a+b B、a-b/(a+b) C、(a-b)/a+b D、(a-b)/(a+b)

24、设Mys1,Mys2均为字符串型变量，Mys1=\则下面关系表达式中结果为True的是__________。

A、Len(Mys1)<>2*InStr(Mys1,”i”) B、Mid(Mys1,8,1)>Mys2

C、Chr(98) & Right(Mys1,4)=”Basic”

D、InStr(Left(Mys1,6),”a”)+60>Asc(Ucase(Mys2))

25、设A=7,B=4,C=6,，则表达式A Mod3+B^3/C\\5的值为__________。 A、1 B、2 C、3 D、出错

26、语句Print Format(12345.6, \执行结果是__________。

A、12,345.6 B、 +12,345.60 C、 +#12,345.60 D、+12,345.6 27、已知函数ASC(“A”)的值65,则函数ASC(“b”)的值是__________。 A、65 B、98 C、78 D、100 28、以下___________是字符串常量。

A、False B、\ C、'def ' D、# True # 29、以下不能作为Visual Basic变量名的是___________。

A、2Fa B、F2a C、Fa2 D、Fa_2 30、设有以下定义语句：

Dim m, n as Single, d1 as Double, d2 as string 则变量m的类型是___________

A、单精度型 B、双精度型 C、字符串型 D、可变类型 31、表达式5 * 2 Mod 25 \\ 2 ^ 2的值是___________。

A、1 B、0 C、6 D、4 32、显示如图所示输入框的Inputbox语句是___________。

A、a = InputBox(\应用示例\请输入\正整数\

B、a = InputBox(\应用示例\请输入\正整数\ \ C、a = InputBox(\请输入\正整数\应用示例\

D、a = InputBox(\请输入\正整数\应用示例\33、以下___________是布尔型常量。

A、True B、\ C、' True ' D、# True #

34、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为___________。 A、0 B、-1 C、True D、False 35、下列叙述正确的是___________。

A、注释语句是执行语句，仅对程序的有关内容起注释作用 B、代码中加入注释语句的目的是提高程序的可读性 C、注释语句不可以放在续行符的后面 D、只能使用Rem关键字书写注释语句 36、下面__________不是字符串常量。

A、\你好\ B、\ \ C、\ D、#False# 37、下列符号常量的声明中，__________是不合法的。 A、Const a as Single=1.1 B、Const a as Integer=\

C、Const a as Double=Sin(1) D、Const a=\

38、下列叙述中不正确的是__________。 A、变量名的第一个字符必须是字母 B、变量名的长度不超过255个字符

C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字

39、Int(100 * Rnd())产生的随机整数区间是__________。

A、[0,99] B、[1,100] C、[0,100] D、[1,99] 40、函数Right(\的值是__________。

A、Beij B、jing C、eiji D、ijin 41、表达式Abs(-5) + Len(\的值是__________。

A、5ABCDE B、-5ABCDE C、10 D、0

42、设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达式可以用__________表示。

A、A + B > C Or A + C > B Or B + C > A B、A + B < C Or A + C < B Or B + C < A C、A + B > C And A + C > B And B + C > A D、A + B < C And A + C < B And B + C < A

43、在一个语句行内写多条语句时，语句之间应该用__________分隔。 A、逗号 B、分号 C、顿号 D、冒号 44、下面__________是字符串常量。

A、m B、#01/01/99# C、\ D、True

45、要强制显式声明变量，可在窗体模块或标准模块的通用声明段中加入语句__________。 A、Option Base 0 B、Option Explicit

C、Option Base 1 D、Option compare

46、产生[10,37]之间的随机整数的VB表达式是__________。 A、Int(Rnd * 27) + 10 B、Int(Rnd * 28) + 10

C、Int(Rnd * 27) + 11 D、Int(Rnd * 28) + 11 47、有以下定义语句： Dim max, min As Integer

则变量max的类型是__________。

A、可变类型 B、单精度型 C、整型 D、长整型 48、函数Left(\的值是__________。

A、how B、are C、you D、how are you 49、函数Mid(\的值是__________。

A、shangh B、sha C、angh D、hai

50、可表示“两个变量A和B之一为0，但不能同时为0”的表达式是__________。 A、A = 0 And B <> 0 B、A * B = 0 And A <> B C、A <> 0 And B = 0

D、A <> 0 And B = 0 And A = 0 And B <> 0

51、在VB代码编辑器中，用来表示续行的是__________。 A、一个空格加一个下划字符( _ ) B、一个下划字符( _ )

C、直接回车 D、一个空格加一个连字符( - )

52、如果将布尔常量值False赋值给一个整型变量，则整型变量的值为__________。 A、0 B、－1 C、True D、False

D、5

8、能够区分各鼠标按钮与【Shift】、【Ctrl】、【Alt】键的事件过程是__________。 A、Click B、Keypress C、Dblclick D、MouseMove

9、下列关于Line和Shape控件说法不正确的是__________。

A、Line和Shape控件都可以在窗体或图片框控件内绘制图形或画线 B、Line和Shape控件绘制的图形不支持任何事件 C、程序运行时可以使用Move方法移动Line控件

D、可以在容器中绘制Shape控件，但是不能把该控件当作容器 10、Visual Basic中利用Circle方法不可以画__________。 A、圆 B、直线 C、弧 D、椭圆

11、如下语句中，与List1.List(List1.ListIndex)功能相同的是__________。 A、List1.Text B、List1.ListCount C、Text1.Text D、List1.ListIndex

12、使用__________方法可将新的列表项添加到一个列表框中。

A、Print B、AddItem C、Clear D、 RemoveItem 13、在程序中可以通过复选框和单选按钮的__________属性值来判断它们的当前状态。 A、Caption B、Checked C、Value D、Selected

14、单选按钮用于一组互斥的选项中，若一个应用程序包含多组互斥的条件。可在不同的__________中安排适当的单选按钮，即可以实现。

A、框架控件或图像控件 B、组合框或图像控件 C、组合框或图片框 D、框架控件或图片框 15、下列使用方法的语句中，正确的是________ 。 A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 16、在VB中可以作为容器的是_________。

A、Form、TextBox、PictureBox B、Form、PictureBox、Frame

C、Form、TextBox、Label D、PictureBox、TextBox、ListBox 17、以下所列的6个控件中， CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、Image（图像框）、Frame（框架）、Label（标签）、具有Caption属性的有__________个。

A、5 B、4 C、3 D、2

18、下面语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。 A、List1.AddItem \ B、List1.Text=\ C、List1.List(List1.ListIndex)= \ D、前三项均可 19、以下控件对象中，不具有text属性的是___________。

A、标签 B、文本框 C、列表框 D、组合框 20、不可以作为容器对象使用的是___________。

A、框架 B、图片框 C、窗体 D、图像框

21、Visual Basic中，任何控件都具有___________属性。

A、Text B、Caption C、(名称) D、Font 22、引用列表框的最后一项应使用___________。 A、List1.list(List1.ListCount-1) B、List1.list(List1.ListCount) C、List1.list(ListCount) D、List1.list(ListCount-1)

23、在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer） ?? End Sub

假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是___________。 A、单击鼠标 B、双击文本框 C、鼠标滑过文本框 D、按下键盘上的某个键

24、要使两个单选按钮属于同一个框架，正确的操作是___________。 A、先画一个框架，再在框架中画两个单选按钮

B、先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 C、先画两个单选按钮，再画框架将单选按钮框起来 D、以上三种方法都正确

25、要设置某文本框的文字具有粗体效果，正确的语句是___________。 A、Text1.FontItalic = True B、Text1.FontItalic = False C、Text1.FontBold = True D、Text1.FontBold = False 26、要选择列表框List1的第6项，可以使用语句___________。 A、List1.ListIndex = 5 B、List1.Selected= 5 C、List1.ListIndex = 6 D、List1.Selected = 6 27、引用列表框List1的最后一项应使用___________。

A、List1.List(List1.ListCount - 1) B、List1.List(List1.ListCount) C、List1.List(ListCount) D、List1.List(ListCount - 1) 28、语句List1、RemoveItem List1、ListIndex的作用是___________。 A、删除列表框的最后一项 B、删除列表框的第一项

C、删除列表框中当前选中的项 D、删除列表框中最后添加的一项 29、要清除组合框Combo1中的所有内容，可以使用___________语句。 A、Combo1.Cls B、Combo1.Clear C、Combo1.Delete D、Combo1.Remove

30、Timer控件的___________属性决定该控件是否对时间的推移做出响应。将该属性设置为False会关闭Timer控件，设置为True则打开它。

A、Enabled B、Visible C、Time D、Capable 31、要使滚动条表示最大值100，应设置其___________属性。

A、Min B、Max C、SmallChange D、LargeChange 32、要设置某文本框的文字具有斜体效果，正确的语句是。 A、Text1.FontItalic = True B、Text1.FontItalic = False C、Text1.FontBold = True D、Text1.FontBold = False

33、要选择列表框List1的第4项，可以使用语句___________。 A、List1.Selected = 4 B、List1.Selected(4) = True C、List1.Selected = 3 D、List1.Selected(3) = True 34、引用列表框List1的第一项应使用___________。

A、List1.List(1) B、List1.List(List1.ListIndex) C、List1.List(0) D、List1.List(ListCount - 1)

35、语句List1、RemoveItem List1、ListCount-1的作用是___________。 A、删除列表框的最后一项 B、删除列表框的第一项 C、删除列表框中当前选中的项 D、删除列表框中所有的项 36、要清除列表框List1中的所有内容，可以使用___________语句。 A、List1.Cls B、List1.Clear C、List1.Delete D、List1.Remove

37、定时器的Interval属性以___________为单位指定Timer事件之间的时间间隔。 A、分 B、秒 C、毫秒 D、微秒

38、要使每次单击滚动条两端箭头时变化值为10，应设置其___________属性。 A、Min B、Max C、SmallChange D、LargeChange 39、通过设置Shape控件的___________属性可以绘制多种形状的图形。 A、Shape B、BorderStyle C、FillStyle D、Style

40、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer , shift As Integer） Dim C As string c=Text1、Text

Text2、Text=Chr(Asc(c）+2） End Sub

当向文本框Text1中输入小写字母a时，文本框Text2中显示的是___________。 A、 A B、 a C、 C D、 c

41、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中输入__________。 A、- B、+ C、& D、#

文件

1、若磁盘文件c:\\data1.dat不存在，则下列打开文件语句中会出现错误的是__________。 A、Open \B、Open \C、Open \D、Open \

2、Visual Basic中三种文件访问的类型是__________。 A、顺序、随机、文本 B、顺序、随机、二进制 C、数据库、表格、文本 D、文本、随机、二进制

3、下列有关文件的说法中不正确的是__________。

A、当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭

B、在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C、可以用不同的文件号同时打开一个随机文件

D、用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 4、以下关于文件的叙述中，错误的是___________。

A、使用Append方式打开文件时，文件指针被定位于文件尾

B、当以输入方式 (Input）打开文件时，如果文件不存在，则建立一个新文件 C、顺序文件各记录的长度可以不同

D、随机文件打开后，既可以进行读操作，也可以进行写操作

5、设有语句Open “d:\\Test.txt” For Output As #1,以下叙述中错误的是___________。 A、若d盘根目录下无Test.txt文件，则该语句创建此文件 B、用该语句建立的文件的文件号为1

C、该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息 D、执行该语句后，就可以通过语句Print #向文件Test.txt写入信息

6、在Visual Basic中按文件的访问方式不同，可以将文件分为___________。 A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCII文件和二进制文件

7、要在C盘根目录下建立一个名为1.Dat的顺序文件，应使用___________语句。 A、Open \ B、Open \ C、Open \ D、Open \

8、执行语句Open \后，系统___________。 A、将C盘根目录下名为1.dat的文件内容读入内存 B、在C盘根目录下建立名为1.dat的顺序文件

C、将内存中数据存放在C盘根目录下名为1.dat的文件中

D、将某个磁盘文件的内容写入C盘根目录下名为1.dat的文件中

根据题目要求完善程序

1、下面的程序用于求三个数中的最大数和最小数，请完善程序。 Option Explicit

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integer a = Val(InputBox(\请输入第一个数\b = Val(InputBox(\请输入第二个数\c = Val(InputBox(\请输入第三个数\max = a

If b >___________ Then max = b If ___________ Then max = c min = a

If b <___________ Then min = b If ___________Then min = c Print \最大数为\Print \最小数为\End Sub

2、下列程序的功能是：运行程序首先出现如左图所示（Form1）的界面，要求用户输入口令，输入完毕后单击“确定”按钮，若输入口令正确，则显示Form2，否则出现如右图所示的信息框；若单击“取消”按钮，则结束程序。要求完善程序。

Private Sub Command1_Click() '确定 Dim password As String

If password = \ ___________ Form2.Show Else

MsgBox End If End Sub

Private Sub Command2_Click() '取消 ___________ End Sub

3、如下程序的功能是求N!。完善程序代码。 Private Sub Form_Click()

Dim i As Integer, F As Long Dim N As Integer

N = InputBox(\请输入N\ ___________ For i = 1 To N

F = ___________ Next i

Print N; \ End Sub

4、下列程序的功能是：用100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡一元3只。要求完善程序。 Private Sub form_Click()

Dim x As Integer, y As Integer, z As Integer For x = 0 To 20

For y = 0 To ___________ For z = 0 To 100 Step 3

If ___________ And ___________ Then Print x; y; z Next z, y, x End Sub

5、下列程序的功能是：求一维数组的最大值及其下标。要求完善程序。 Option Base 1

Private Sub form_Click()

Dim t(10) As Integer, max As Integer, max_i As Integer For i = 1 To 10

t(i) = Int(Rnd * 100) Next i

max = t(1): max_i = ___________ For i = 2 To 10

If t(i) ___________Then max =___________ max_i = i End If Next i

Print max, max_i End Sub

6、如下程序的功能是：随机产生12个两位整数，存放在数组Com中，并从中找出一个最大值和一个最小值，完善程序。 Option Explicit Option Base 1

Private Sub Form_Click()

Dim Com(12) As Integer, I As Integer

Dim Max As Integer, ___________As Integer Randomize

For I = 1 To ___________

Com(I) = Int(___________* Rnd) + 10 Print Com(I); Next I Print

Max = Com(1): Min =___________ For I =___________ to 12 If Com(I) > Max Then ___________

ElseIf Com(I) < Min Then Min = Com(I) End If Next I

Print \最小数是：\ Print \最大数是：\End Sub

7、如下程序的功能是：用选择法对数组按升序排序，排序前将原始数据显示在Text1内，排序后的结果显示在Text2内，完善程序。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim Sort(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Randomize

Text1 = \ For I = 1 To 10

Sort(I) = Int(99 * Rnd) + 1 Text1 = ___________ Next I

For I = 1 To ___________ For J =___________to 10 If ___________Then Temp = Sort(I) Sort(I) = Sort(J) Sort(J) = Temp End If Next J

Text2 = Text2 & Str(Sort(I)) Next I

Text2 = Text2 & Str(Sort(I)) End Sub

8、如下程序的功能是找出200以内所有的素数，并按每行10个的形式输出。完善程序代码。 Option Base 1 Option Explicit

Private Sub Form_Click()

Dim Prime() As Integer, I As Integer

Dim K As Integer, M As Integer, J As Integer M = 1

Redim Prime(M) Prime(M) = 2

For I = 3 To 199 Step 2

For K = 2 To ___________

If ___________Then Exit For Next K

If K > Sqr(I) Then

M = M + 1

Preserve Prime(M) Prime(M) = I End If Next I

For J = 1 To Ubound(Prime) Print Prime(J);

If J Mod ___________ = 0 Then Print Next J End Sub

9、下面的程序功能是：生成100个 -10到10之间的随机整数并显示到文本框中，统计这100个数中 -10 、-5 、 5 、10的个数并显示在图片框中。请完善程序。 Dim A(1 To 100) As Integer Private Sub Command1_Click()

Dim num1 As Integer, num2 As Integer, num3 As Integer, num4 As Integer num1 = 0: num2 = 0: num3 = 0: num4 = 0 For I = 1 To 100

Select Case ___________ Case -10

num1 = num1 + 1 Case -5

num2 = num2 + 1 Case 5

num3 = num3 + 1 Case 10

num4 = num4 + 1 End Select Next I

Picture1.Print \的个数=\的个数=\Picture1.Print \的个数=\的个数=\End Sub

Private Sub Form_Load()

Text1.Text = \For I = 1 To 100

___________= Int(Rnd() * 21 - 10)

Text1.Text = ___________& Str(A(I)) & \ \Next I End Sub

10、下面的过程用比较交换法实现数据从大到小的排序，请完善代码。 Sub SortArray(a() As Integer) Dim i As Integer, j As Integer Dim n As Integer, t As Integer ___________= UBound(a) For i = 1 To n - 1

For j =___________ To n If a(i) < a(j) Then t =___________ a(i) = a(j)

___________= t End If Next j Next i End Sub

11、下列程序代码读入N个数，用比较交换法对这N个数按从大到小的顺序排序，并在文本框Text1中输出排序结果。 Private Sub Command1_Click()

Dim a() As Integer

Dim i As Integer, j As Integer Dim t As Integer, n As Integer

n = Val(InputBox(\请输入正整数N：\ ReDim ___________ For i = 1 To n

___________= Val(InputBox(\请输入第\个数\ Next i

For i = 1 To n - 1

For j = ___________To n If a(i) < a(j) Then t = a(i)

a(i) =___________ a(j) = ___________ End If Next j Next i

For i = 1 To n

Text1.Text = Text1.Text & Str(a(i)) & \ Next i End Sub