一、填空题
1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。 4．窗体的常用方法有__________、___________、___________和___________。 5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ___________ _____________________ End Sub
7．Visual Basic 6种类型的表达式是______________、______________、______________、 ________________、_________________、____________________。Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \\ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c 11．数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________。 12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为___________________________。 13．事件就是在对象上所发生的事情，Visual Basic中的事件如___________、 ___________、______________等。一个对象响应的事件可以有_____个，用户不能建立新的事件。事件过程是指_____________________________________________。假设某一事件过程如下： Private Sub cmd1_Click() =\"VB示例\" End Sub 则响应该过程的对象名是______________，事件名是_____________。 14．对象的方法用于__________________。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为________________，例如，对窗体Form1使用Show方法，应写成_________________。 15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True，使其加载的图片能自动调整大小以适应Image。 16．在Visual Basic程序中实现复制文件“c:\\”到d:盘根目录下的语句为_______________________________________。 二、单项选择题 1．下列控件中没有Caption属性的是（ ） A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（ ）。 A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（ ）。 A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（ ）。 A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件 5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ ）。 A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、PasswordChar属性值为* 6．表达式2*3^2+2*8/4+3^2的值为（ ）。 A、64 B、31 C、49 D、42 7．表达式mid(\"abcdefg\的值是（ ） A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（ ）。 A、Sin25 B、Sin（25） C、Sin（25°） D、Sin（25*180） 9．Sub过程与 Function过程最根本的区别是（ ）。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。 D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 10．选拔身高T超过1.7米且体重W小于公斤的人，表示该条件的布尔表达式为（ ） A、T>= And W<= B、T<= Or W>=62.5 C、T> And W< D、T>= Or W< 11.下列对象不能响应 Click事件的是（ ） A、列表框 B、图片框 C、窗体 D、计时器 12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（ ） A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件 13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（ ）方法。 A、ShowOpen B、ShowSave C、ShowColor D、ShowFont 三、指出下列句中的错误，修改或者说明原因。 1．sum和都可以作为VB的变量名。 2．变量名的长度最长可达1024个字符。 3．下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click() Dim a，b As Integer a = b = = a = b End Sub 4．程序可以改变定长字符串的内容和长度。 5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。 6．下列程序运行结果为True Private Sub Command1_Click() a = 1 b = 2 c = 3 = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2 End Sub 7．#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999# 8．可以在窗体的通用部分声明静态变量。 9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串\"\"，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。 10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。 11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。 12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。 四、读程序题，写出程序运行结果。 1．Private Sub Form_Click() For I = 1 To 9 For j = 1 To 30 - 3 * I Print \" \"; Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print k; Next k Print Next I End Sub 2． Option Explicit Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3． For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); \"*\"; Next Y Print Next X 4． Private Sub Form_Activate() Print \"aa\" & \"bb\Print \"aa\" & \"bb\"; -5 * 6; Not 2 <= 3 Print Print \"30+60\Print 30 + 60 \"30+60\"; 30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z 五、编程题 1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。 2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。 4．任意输入3个数，求大小排第二的那个数，写出程序代码。 《VB》期末复习参考答案 一、填空题 1．创建应用程序界面 设置属性 编写代码 2．属性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．=\"GOOD WORK\" 6．Click()、 7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 8．1 9．True False 10．12 11．Sin(x) ^ 2 + Sqr(x ^ 2 - y ^ 2) / (2 * x) 12．Dim A(1 To 5，-2 To 6) As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 15．AutoSize Stretch 16．FileCopy \"c:\\\"，\"d:\\\" 二、单项选择题 1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C 三、指出下列句中的错误，修改或者说明原因。 1． 不正确。变量名中不能包括小数点。 2．变量名的长度最长可达255个字符。 3． ， 4 因为a 不是整型变量。 4．不正确。程序不可以改变字符的长度，这是VB规定。 5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型 外，可以包含任何种类型的数据，这是VB规定。 6．False 。逻辑表达式计算结果。 7．不正确。两个日期型数据相减，其结果是一个数值型数据。 8．不正确。静态变量为局部变量，只能在过程中声明。 9．正确。 10．正确。 11．正确。 12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹 配，而可以使图片自动扩展以适应控件的尺寸。 四、读程序题，写出程序运行结果。 1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序运行后，单击按钮Command1，输出结果为：120。 3. * ** *** **** ***** 4. aabb -30 False aabb-30 False 30+60 90 30+60 90 5. 11 13 9 五、编程题 1． Private Sub Command1_Click() = \"\" = \"\" = \"\" = \"\" End Sub Private Sub Command2_Click() a = Trim b = Trim c = Trim If a = \"\" Or b = \"\" Or c = \"\" Then MsgBox \"成绩填写不完全！\ Else = (Val(a) + Val(b) + Val(c)) / 3 End If End Sub Private Sub Command3_Click() Unload Me End Sub 2． Private Sub Command1_Click() x = Val If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else = 0 = Len End If End Sub 3． Private Sub Check1_Click() If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() If = 1 Then = True Else = False End If End Sub Private Sub Command1_Click() Unload Me End Sub 4． a = Val(InputBox(\"输入第一个数：\")) b = Val(InputBox(\"输入第二个数：\")) c = Val(InputBox(\"输入第三个数：\")) If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox (\"求大小排第二的数是：\" & b) VB期末考试试题 A卷 一、 填空题 1、VB程序设计的主要特点是 （1） 和 （2） 。 2、在VB中，最主要的两种对象是 （3） 和 （4） 。 3、工程是构成应用程序文件的 （5） 。 4、方法是VB提供的一种 （6） ，用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、 复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的 （11）和 （12） 属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的 （13） 出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用 （14） 作为消息框的标题。 12、设x＝，语句Print Format(x,“000.0”)的输出结果是 （15） 。 13、在VB 中，数值型变量的初值为 （16） ，Varant型变量的初值为 （17） ，布尔型变量的初值为 （18） 。 14、设置窗体的 （19） 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句 （20） 。 二、选择题 1、菜单控件只包括一个事件，即 （1） ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 （2） 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 （3） 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 （4） 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 （5） 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 （6） 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 （7） 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 （8） 。 Private Sub Command1_Click( ) Print \"VB\"; Print \"Hello! \"; Print \"VB\" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print \"The answer is:\";20/4-2的结果为 （9） 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is \"20/4-2\" D、非法语句 10、下列哪个控件是容器控件 （10） 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 （11） 。 12、以下选项中，不是 Visual Basic控件的是 （12） 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 （13） 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 （14） 。 15、设有如下语句： Strl＝InputBox（\"输人\"，\"\"，\"练习\"） 从键盘上输人字符 “示例”后，Strl的值是 （15） 。 A．“输入” B．“ ” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （16） 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 （17） 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 （18） 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 （19） 。 A．Value B．FontColor C．BackColor D．Font 20、窗体能响应的事件是 （20） 。 A．ActiveForm B．Load C．Drive D．Change 三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。) 1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。 2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。 3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。 4、通过改变属性窗口中的Name属性，来改变窗体的标题。 5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。 6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。 7、已知P＝MsgBox(“Howareyou\"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。 8、工程文件的扩展名是 .vbg 。 9、VB允许设计和使用用户自己设计的控件。 10、OptionButton控件没有DblCliek事件。 11、同一条记录中的各数据具有相同的类型。 12、使用Data控件可以直接显示数据库中的数据。 13、ImageList 是一个图像容器控件，可用作工具栏的图像库。 14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。 15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。 16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。 17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。 18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。 19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。 20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。 四、读程序题，写出程序运行结果 1、 Private Sub Form_Click() Static SUM As Integer I = 1 Do While I<=10 SUM = SUM + I I = I + 1 Loop Print SUM End Sub 运行程序，第一次单击窗体： 第二次单击窗体： 2、 Private Sub Form_Click() Print \"*\"; Tab(6); 2, Tab(15); 5 Print For I = 15 To 16 Print I; For j = 2 To 6 Step 3 Print Tab(3 * j); j * I; Next j Print Next I End Sub 程序运行结果： 五、编程题 （一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空： Private Sub Form_load( ) （1） =loadPicture(“c:\\pic\\”) （2） .Interval=200 End Sub Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100 （3） End Sub （二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空： Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer (1) Timer For N=1 To 50 X=Rnd()* (2) If (3) =2 Then Print x Counter= (4) (5) Next N Print Counter End Sub 《VB程序设计与应用》参考答案 1 2 3 4 5 一、填空题 答案 题号 答案 题号 答案 题号 答案 二、选择题 答案 题号 答案 题号 答案 题号 答案 三、判断题 答案 答案 1 Х 11 √ 可视化设计 事件驱动编程 6 特殊子程序 11 高度（Height） 16 0 1 C 6 D 11 D 16 C 2 Х 12 Х 7 双精度 12 宽度(Width) 17 空 2 A 7 D 12 A 17 A 3 Х 13 √ 4 √ 14 √ 5 Х 15 Х 窗体（form） 8 动作 13 中央 18 False 3 B 8 A 13 A 18 C 6 √ 16 Х 7 √ 17 √ 控件 9 Print 14 工程1 19 Picture 4 C 9 B 14 A 19 C 8 √ 18 Х 9 √ 19 Х 集合 10 选中 15 20 Cls 5 A 10 B 15 D 20 B 10 Х 20 √ 四、程序阅读题： （一） （10分） 1 、 55 2、 110 （二）、 （10分） * 2 5 15 30 75 16 32 80 五、编程题 （20分） （一）1、 2、 Timer1 3、 x ,y (二) 1、 Randomize 2、 Rnd()*41+60 3、 x Mod 6 4、 Counter＋1 5 End If 一、单项选择题（共10分） 1．在代码中引用一个控件时，应使用控件的（B）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn的返回值是（C ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ D ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（D）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ A ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（B）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（B ）。 Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x)) End Sub A．2 B．3 C．4 D．5 二、填空题（10分） 1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。 2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。 3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。 4．函数Len(“abcdef”)的返回值是(6) 。 5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为False 。 三、将下列数学表达式转换为VB表达式。（6分） 1．a2+2ab+b2 ： a^2+2*a*b+b^2 2．8exln10 ：8*exp(x)*log(10) 3．2sin(450)cos(450) ：2*sin4)*cos4) 6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。 1．在VB 中，扩展名为.vbp的文件称为 A 。 A) 工程文件 B) 窗体文件 C) 类模块文件 D) 标准模块文件 2．在VB 集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是 A 。 A) 代码窗口 C) 属性窗口 A) 整型 B) 单精度类型 B) 窗体设计窗口 D) 工程资源管理器窗口 C) 双精度类型 D) 字符串类型 3．设有变量定义语句Dim a%，则变量a的数据类型是 A 。 4．下列表达式中，值为False的是 D 。 A) \"AB\"<\"abc\" C) \"ABCD\"<\"abc\" 5．函数InStr(\"ABCDEF\的值是 B 。 A) 2 B) 3 B) \"ABC\" = UCase(\"abc\") D) Mid(\"ABCD\ C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是 C 。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 B 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 8．下面程序段所表示的数学关系式是 C 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) xC) xD) 10 7 1(ab且cd) 2(ab且cd)B) x1(ab且cd) 2(ab且cd)1(ab且cd) 2(ab)D) x1(ab且cd) 2(cd)9．下列程序运行后，单击窗体，输出结果是 C 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 10．下列程序段的输出结果是 B 。 For k = 4 To 2 Step -2 m = k Next k Print m; k; A) 2 2 B) 2 0 D) 0 C) 2 1 D) 0 0 11．用下面的语句定义数组，则数组中的元素个数是 D 个。 Option Base 1 Dim A(-1 To 2，5) As Integer A) 5 B) 10 C) 15 12．下面程序段的输出结果是 C 。 Dim a(4) As Integer, s As Integer For k = 1 To 4 a(k) = 2 * k Next k For k = 1 To 4 Step 2 s = s + a(k) Print s; Next k A) 8 B) 20 D) 20 C) 2 8 D) 2 6 12 20 13．设有如下的用户自定义类型 Private Type Stu name As String * 10 age As Integer End Type 则以下正确引用该类型成员的代码是 B 。 A) =\"zhang\" B) Dim s As Stu = \"zhang\" C) Dim s As Type Stu D) Dim s As Type = \"zhang\" = \"zhang\" 14．用“ B ”关键字声明的变量称为全局变量。 A) Private B) Public C) Dim D) Static 15．在窗体上放置一个文本框，程序运行后，在文本框中输入abc，但显示的却是***，可能的原因是该文本框的 D 属性值已经被设置为\"*\"。 A) Font B) Text C) Name D) PasswordChar 16．在VB 中，Print是对象的 B 。 A) 属性 B) 方法 C) 事件 D) 名称 17．在VB 中，要判断复选框是否为选中状态，使用的属性是 D 。 A) Caption B) Checked C) Selected D) Value 18．设列表框List1中共有3个列表项，如右图所示。则下列语句中，能够删除最后一个列表项的是 A 。 A) 2 B) \"项目C\" C) List1. Listcount D) List1. ListIndex 19．组合框分为下拉式组合框、简单组合框和下拉式列表框，在 “属性”窗口中这三种类型是由 A 属性设置的。 A) Style B) FillStyle C) BackStyle D) BorderStyle 20．用户单击滚动条的空白处（滑块与两端滚动箭头之间的区域）时，Value属性所增加或减少的值，是由 D 属性决定的。 A) Min B) Max C) SmallChange D) LargeChange 21．将图片文件“”作为背景图片，装入当前窗体，正确的语句是 D 。 A) = B) = LoadPicture C) =\"\" D) = LoadPicture(\"\") 22．要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是 A 。 A) 先放置一个框架，然后在框架中放置两个单选按钮 B) 先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮上 C) 先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内 D) 以上三种方法都正确 23．计时器控件能够响应的事件是 D 。 A) Load B) Click C) Change D) Timer 24．要使命令按钮处于无效状态，可以设置按钮的 B 属性值为False。 A) Caption B) Enabled C) Style D) Visible 25．如果在一个工程中有多个窗体和模块，则VB默认的启动对象是 C 。 A) 第一个标准模块 C) 设计时的第一个窗体 B) 最后一个被添加的窗体 D) 最后一个被添加的标准模块 26．在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使 框中的图片能够自动适应图像框的大小，可以执行语句 B 。 A) =True B) =True C) =False D) =False 27．使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是 A 。 C) & D) # A) 减号- B) 下划线_ 28．要将窗体Form1从内存中卸载，正确的语句是 D 。 A) B) Load Form1 C) D) UnLoad Form1 29．在窗体上单击时，会触发鼠标事件MouseDown，其事件过程的一般格式如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …… End Sub 此时，如果单击的是鼠标右键，则Button参数的值是 B 。 A) 1 B) 2 C) 3 D) 4 D) LOG( ) 30．获取文件的长度（字节数），可以使用的函数是 B 。 A) LEN( ) B) LOF( ) C) EOF( ) 1．数学表达式 3y改写为VB表达式，形式是 【1】 。答案 sqr(3*y) /(x+y) xy 2．在VB 中，InputBox函数返回值的数据类型是 【2】 。答案：字符串类型或String 3．语句 Print Tab(5);\"ABC\" 的功能是 【3】 。 答案：从第5列开始输出字符串“ABC” 4．下面程序段的功能是：在文本框Text1中输入一个数值x，如果满足5 Form1. 【8】 menu1 9．在窗体上放置一个通用对话框控件，名称为CommonDialog1。使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1. 【9】 =\"文本文件(*.txt)|*.txt\"。 答案：Filter 10．设磁盘上已存在顺序文件“”，为了从文件中顺序读取数据而打开该文件，正确的语 句是 Open \"\" For 【10】 As #1。 答案：Input 1．下列面程序运行后，单击窗体，输出结果是 【1】 。答案：1 3 9 Private Sub Form_Click() s = 0 For n=1 To 3 p = 1 For k = 1 To n p = p * k Next k s = s + p Print s; Next n End Sub 2．下列程序运行后，单击窗体，输出结果是 【2】 。答案：7 Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is > 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print m End Sub 3．在窗体上放置一个文本框，名称为Text1。下列程序运行后，单击窗体，Text1中显示的 内容是 【3】 。 答案：ade Private Sub Form_Click() = \"\" s = \"aBd12Re\" For k = 1 To Len(s) ch = Mid(s, k, 1) If ch >= \"a\" And ch <= \"z\" Then = + ch End If Next k End Sub 4．下列程序运行后，单击窗体，输出结果是 【4】 。 答案：11 24 Option Base 1 Private Sub Form_Click() x = Array(3, 5, 4, 8, 2, 6, 11, 9, 7, 4) p = x(1): s=0 For k = 2 To UBound(x) If x(k) > p Then p = x(k) s = s + p End If Next k Print p; s End Sub 5．下列程序运行后，单击窗体，输出结果是 【5】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Else a(i, k) = i + k End If Next k Next i Print a(1, 1); a(2, 3); a(3, 3) End Sub 6．在窗体上放置一个命令按钮，名称为Command2，并编写如下代码。 Private Sub Command2_Click() Dim m As Integer, n As Integer, g As Integer m = 18: n = 12: g = 0 Call sub1(m, n, g) Print m; n; g End Sub Public Sub sub1(ByVal a As Integer, ByVal b As Integer, c As Integer) If a < b Then t = a: a = b: b = t Do While b <> 0 r = a Mod b a = b b = r Loop c = a End Sub 程序运行后，单击命令按钮，则输出结果是 【6】 。答案：18 12 6 7．在窗体上放置一个命令按钮，名称为Command3，并编写如下代码。 Private Sub Command3_Click() Dim k As Integer k = 1 Print fun1(k); Print fun1(k); Print fun1(k); End Sub Function fun1(a As Integer) As Integer Static c As Integer Dim b As Integer a = a + 2: b = b + 2: c = c + 2 fun1 = a + b + c End Function 程序运行后，单击命令按钮，则输出结果是 【7】 。答案：7 11 15 8．在窗体上放置一个文本框，其名称为Text1，并编写如下代码。 Dim s As String Private Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s; End Sub 程序运行后，在文本框中输入abc，则窗体上输出的内容是 【8】 。答案：aababc 1．在窗体上放置一个计时器和一个标签，计时器名称为Timer1，标签名称为Label1。下列程序的功能是： （1）在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件； （2）每触发一次Timer事件能够将标签上的字号加大2，当字号超过当前窗体的宽度时，将字号恢复为8。 程序中有一处错误，请更正。说明错误时可以使用每条语句前的编号。 ．．(1) Private Sub Form_Load() (2) = 5 答案：200 (3) = True (4) End Sub (5) Private Sub Timer1_Timer() (6) = + 2 (7) If > Then (8) = 8 (9) End If (10) End Sub 2．下列程序的功能是计算1+3+5+…+99的和s。程序中有一处错误。请更正。说明错误时．．可以使用每条语句前的编号。 (1) (2) (3) (4) (5) (6) (7) s = 0 k = 1 Do While k <= 99 k = k + 2 答案：将（4）、（5）调换顺序 s = s + k Loop Print s 1．在窗体上放置一个列表框，名称为List1；放置一 个文本框，名称为Text1；放置一个命令按钮，名称为Command1，Caption属性值为“统计3的倍数”。如右图所示。 下列程序的功能是： （1） 在窗体的Load事件中，产生10个20~30 （含20和30）之间的随机整数，并作为列表项逐个添加到列表框List1中。 （2） 单击命令按钮Command1时，能够统计列表框中是3的倍数的列表项的个数，并 将统计结果显示在文本框Text1中。 请填空完善程序。 Private Sub Form_ Load( ) Dim x As Integere Randomize For k = 1 To 10 答案：Int(Rnd * 11 + 20) 或 Rnd*10+20 x = 【1】 '产生一个[20,30]之间的随机整数 【2】 '将x作为列表项添加到List1中 Next k 答案： x 或 str(x) End Sub Private Sub Command1_Click() Dim n As Integer ' n:存放是3的倍数的列表项的个数 For k = 【3】 答案：0 To – 1 或 0 To 9 If Val(k)) 【4】 = 0 Then 答案： Mod 3 n = n + 1 End If Next k = n End Sub 2．下列程序的功能是用近似公式 e11111 求自然对数的底 e 的值，1!2!3!n!直到最后一项小于10-4时停止计算。请填空完善程序。 Private Sub Form_Click() Dim e As Single, n As Integer, p As Single 'e: 累加和 p: 参加求和的当前项 e = 1: n = 1: p = 1 Do While 【5】 答案：p >= 1e-4 e = e + p n = n + 1 p = 【6】 答案：p / n Loop Print \"e的近似值=\"; e End Sub 3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下： 控件类型 控件名称 标签 Label1 属性 属性值 Caption 示例文字 命令按钮 Command1 Caption 设置 Option1 单选按钮 Option2 Caption 隶书 下列程序的功能是单击命令按钮后，根据单选按钮的选中状态，将标签中的“示例文字”设置为相应的字体。请填空完善程序。 Private Sub Command1_Click() Dim fn As String ' fn:存放选中的字体 If 【7】 Then 答案： = True fn = \"宋体\" Else fn = \"隶书\" End If 【8】 = fn 答案： Caption 宋体 End Sub 4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值，并返回。 单击窗体时，能够输入数组a的10个元素，并调用函数ave，求数组a中所有元素的平均值，并显示输出。 请填空完善程序。 Option Base 1 Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(\"输入一个数值\")) Next i Print \"平均值=\"; 【9】 '调用函数ave 答案：ave(a) End Sub Public Function ave(b() As Single) As Single Dim s As Single Dim n As Integer n = UBound(b) For k = 1 To n s = s + b(k) Next k 【10】 答案：ave = s / n End Function 《VB期末范围题总汇》 1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize \"产生的随机数为：\" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i); Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + * a(i) Next i \"最大数为：\"; max \"最小数为：\"; min \"平均数为：\"; ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 3.百元买百鸡问题； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 \" 公鸡：\" & i & \" 母鸡：\" & j & \" 小鸡：\" & k End If Next: Next: Next MsgBox \"共有组合：\" & n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.'求完数的过程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub 5.求各位数字之和 input a:'输入任意数 do b=a mod 10:'取a的末位数 sum=sum+b:'求和 a=a \\ 10:'去掉末位数 loop until a=0 print \"sum=\";sum:'输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） 6.求最小公倍数 Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(\"输入n1\") m1 = InputBox(\"输入m1\") If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; \的最大公约数为\"; n Print \"最小公倍数=\End Sub 7.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(\"请输入2的整数:\")) I = 2 Do If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If Loop While N 1 End Sub 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i For i=1 To 26 Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End Function 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(\"输入整数\") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print \"原数组:\" For i = 1 To 10 a(i) = Int(Rnd * 10) Print \"a(\" & i & \") =\" & a(i) & Space(2), If i Mod 2 = 0 Then Print End If Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) End If Next j Next i End Sub 《VB期末范围题总汇》 1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize \"产生的随机数为：\" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i); Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + * a(i) Next i \"最大数为：\"; max \"最小数为：\"; min \"平均数为：\"; ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 3.百元买百鸡问题； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 \" 公鸡：\" & i & \" 母鸡：\" & j & \" 小鸡：\" & k End If Next: Next: Next MsgBox \"共有组合：\" & n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.'求完数的过程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub 5.求各位数字之和 input a:'输入任意数 do b=a mod 10:'取a的末位数 sum=sum+b:'求和 a=a \\ 10:'去掉末位数 loop until a=0 print \"sum=\";sum:'输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） 6.求最小公倍数 Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(\"输入n1\") m1 = InputBox(\"输入m1\") If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; \的最大公约数为\"; n Print \"最小公倍数=\End Sub 7.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(\"请输入2的整数:\")) I = 2 Do If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If Loop While N 1 End Sub 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i For i=1 To 26 Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End Function 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(\"输入整数\") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print \"原数组:\" For i = 1 To 10 a(i) = Rnd * 10 Print \"a(\" & i & \") =\" & a(i) & Space(2), If i Mod 2 = 0 Then Print Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) a(i 《VB期末范围题总汇》 1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize \"产生的随机数为：\" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i); Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + * a(i) Next i \"最大数为：\"; max \"最小数为：\"; min \"平均数为：\"; ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 3.百元买百鸡问题； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 \" 公鸡：\" & i & \" 母鸡：\" & j & \" 小鸡：\" & k End If Next: Next: Next MsgBox \"共有组合：\" & n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.'求完数的过程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub 5.求各位数字之和 input a:'输入任意数 do b=a mod 10:'取a的末位数 sum=sum+b:'求和 a=a \\ 10:'去掉末位数 loop until a=0 print \"sum=\";sum:'输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） 6.求最小公倍数 Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(\"输入n1\") m1 = InputBox(\"输入m1\") If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; \的最大公约数为\"; n Print \"最小公倍数=\End Sub 7.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(\"请输入2的整数:\")) I = 2 Do If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If Loop While N 1 End Sub 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i For i=1 To 26 Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End Function 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(\"输入整数\") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print \"原数组:\" For i = 1 To 10 a(i) = Rnd * 10 Print \"a(\" & i & \") =\" & a(i) & Space(2), If i Mod 2 = 0 Then Print Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) a(i 《VB期末范围题总汇》 1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize \"产生的随机数为：\" For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i); Next i End Sub Private Sub Command2_Click() Dim max, min, ave max = a(1) min = a(1) ave = * a(1) For i = 2 To 10 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) ave = ave + * a(i) Next i \"最大数为：\"; max \"最小数为：\"; min \"平均数为：\"; ave End Sub 2.求水仙花数 Private Sub Form_Click() Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub 3.百元买百鸡问题； Option Explicit Const a = 5, b = 3, c = 1 Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 If i * a + j * b + k * c = 100 Then n = n + 1 \" 公鸡：\" & i & \" 母鸡：\" & j & \" 小鸡：\" & k End If Next: Next: Next MsgBox \"共有组合：\" & n End Sub 求1000以内的所有完数 一个按钮里调用的过程 Private Sub Command1_Click() OutputWanNumber 1000 End Sub 4.'求完数的过程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub 5.求各位数字之和 input a:'输入任意数 do b=a mod 10:'取a的末位数 sum=sum+b:'求和 a=a \\ 10:'去掉末位数 loop until a=0 print \"sum=\";sum:'输出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） 6.求最小公倍数 Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(\"输入n1\") m1 = InputBox(\"输入m1\") If m1 > n1 Then '为了求最小公倍数，增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; \的最大公约数为\"; n Print \"最小公倍数=\End Sub 7.求逆序数（感觉题目类型太多） 8. 级数有限项求和问题（题目类型太多） 9. 求质因子问题 Private Sub Command1_Click() Dim N As Integer, I As Integer N = Val(InputBox(\"请输入2的整数:\")) I = 2 Do If N Mod I = 0 Then Print I; N = N \\ I Else I = I 1 End If Loop While N 1 End Sub 10. 字符统计 Option Base1 Option Explicit Private Sub Command1_Click() Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as string Strl=Text1 n=Len(Strl) For i=1 To n S=Mid(Strl,i,1) If UCase(S)>=”A” And UCase(S)<=”Z” Then A(Asc(UCase(S))-64)+1 End If Next i For i=1 To 26 Chr(64+i) & “:” & A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大题 1. 判定素数过程 Function isprime(Num As Long) As Boolean If Num < 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub 2.求最大公约数过程； Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long X = IIf(A >= B, A, B) 'x存入最大值 Y = IIf(A <= B, A, B) 'y 存入最小值 Do '辗转相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公约数 = Y End Function 3.冒泡排序过程 Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(\"输入整数\") Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1 If a(j - 1) > a(j) Then t = a(j - 1) a(j - 1) = a(j) a(j) = t End If Next Next End Sub 4顺序查找过程 Private Sub Command1_Click() Dim i, j, t, a(1 To 10) Randomize Print \"原数组:\" For i = 1 To 10 a(i) = Rnd * 10 Print \"a(\" & i & \") =\" & a(i) & Space(2), If i Mod 2 = 0 Then Print Next i Print For i = 1 To 9 For j = i + 1 To 10 If a(j) < a(i) Then t = a(i) a(i 因篇幅问题不能全部显示，请点此查看更多更全内容