一VB程序设计基础练习题库
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB程序设计习题
A．0 B．-1 C．TRUE D．FALSE
4．函数String(n，"str")的功能是（B）
A．把数值型数据转换为字符串B．返回n个由字符串首字符组成的字符串
C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串
14．滚动条控件的LargeChange属性所设置的是（A）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置C． 滚动条中滚动块的最大移动范围
D． 滚动条控件无该属性
15．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）
B． 在运行Windows帮助引擎时，控件能够显示帮助信息
C． 控件显示的对话框由控件的方法决定
D． 设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整
二、写出下列程序的运行结果
１．如下程序运行后，分别输入100和200，然后单击命令按钮：
Private Sub Command1_Click()
5．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性值时，将触发文本框的（D）事件
A．ClickB．DblclickC．GotfocusD．Change
6．下列表达式Int(-4.8) * 6 \ 3 ^ 2 + 11 Mod 3 * Fix(-4.8)的值为（C）
Private Sub Command1_Click( )
x=InputBox(“x=?”)
If x^2=9 Then y=x
VB程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
VB习题1[1][1].3
![VB习题1[1][1].3](https://img.taocdn.com/s3/m/dbc2dece3186bceb19e8bb25.png)
图3-1 窗体运行界面
2.
在窗体上放1个标签Label1，1个命令按钮Command1，当窗体启动时使标签居于窗 体的中间，并显示系统的当前时间，命令按钮显示为"放大"，当单击命令按钮时， 将标签中显示放在1~3倍，并重新显示系统当前时间。如下图：
图3－2
3.
编一模拟简易计算器的程序，运行界面如图3-3示。
图3-3 简易计算器的运行结果
第四讲
程序的顺序结构
一、选择题 1. 设 x=2,y=5,下列语句中能在窗体上显示“A=7”的语句是 C A. Print A=x+y B. Print “A=x+y” C. Print “A=”;x+y D. Print “A=” +x+y 2. 语句 Print Format$(1234.56,”000,000.000”)的输出结果是 D A. 1234.56 B. 1,234.56 C. 1,234.560 D. 001,234.560 3. 运行下列程序段,在弹出的信息框的标题栏中显示的是 C x$ = ”Beijing Welcomes you” y$ = Left(x$,7) z$ = Right(x$,3) q$ = Mid(x$,9,8) MsgBox x$,y$,z$,q$ A. Beijing Welcomes you B. Beijing C. Welcomes D. you 4. 在窗体上画一个文本框（其中 Name 属性为 Text1） ，然后编写如下事件过程 Private Sub Form_Click() x = InputBox(“Enter an Integer”) y = InputBox(“Enter an Integer”) Text1.text = x+y End Sub 程序运行后，在输入对话框中分别输入 5 和 6，则文本框中显示的内容是 B A. 11 B. 56 C. 65 D. 出错信息 5. 执行语句： x = InputBox(“Afanda”,“Mummy”,“Alien”,,,“2012”) 则在对话框的输入区中显示的信息是 C A. Afanda B. Mummy C. Alien
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试Basic的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是_________。
（A）My Documents （B）VB98（C）\ （D）Windows10.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle11.文本框没有______属性。
VB程序设计试题及参考答案
VB程序设计试题及参考答案VB程序设计及参考答案⼀、单选题（共20分，每⼩题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption（D）Enabled3、（）对象具有clear⽅法。
（A）图⽚框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建⽴⼀个新（）。
（A）窗体（B）⽂件（C）⼯程（D）程序5、下列（）对象不具有Clear⽅法。
（A）列表框（B）组合框（C）剪贴框（D）图⽚框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图⽚框的⼤⼩以适合图⽚的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除⽂本框中的内容则可利⽤（）进⾏。
（A）Caption （B）Text （C）Clear （D）Cls9、在⽂本框控件中将Text的内容全部显⽰为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是⼀种⾯向对象的程序设计语⾔，所采⽤的编程机制是（）。
（A）从主程序开始执⾏（B）按过程顺序执⾏（C）事件驱动（D）按模块顺序执⾏11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、⽆论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”(B) Forml.Caption='欢迎使用VB'(C) Forml.Caption=欢迎使用VB(D) Forml.Caption="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选题（共15小题，每小题2分，共30分）1.以下叙述中，错误的是（B ）。
A) 在Visual Basic中，对象所能响应的事件是由系统定义的B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C) Visual Basic中允许不同对象使用相同名称的方法D) Visual Basic中的对象具有自己的属性和方法2.下列叙述中，错误的是（C ）。
A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程(对象)的程序设计语言D、VB应用程序可以以编译方式执行3.下列（A ）是合法的变量名。
A、x_y （合法变量名以字母或下划线头）B、x-yC、2xD、and4.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）。
A、T>=1.7 And W<=62.5B、T<=1.7 Or W>=62.5C、T>1.7 And W<62.5D、T>=1.7 Or W<62.55.设a=”Visual Basic”，下面使b=”Basic”的语句是（B ）A.b=Left(a，8，12)B.b=Mid(a，8，5)C.b=Right(a，5，5)D.b=Left(a，8,5)取字符串a第8个字符开始的5个6.如果x小于y的平方，则在窗体上输出“OK”。
完成该要求的单行条件语句是（C ）。
A、If x < y ^ 2 Then "OK"B、If x < y ^ 2 Then Show "OK"C、If x < y ^ 2 Then Print "OK"D、f x < y ^ 2 Then Put "OK"7.要使循环体至少执行一次，应使用（D ）循环。
A、For …NextB、While …WendC、Do …Loop[While/Until]D、Do[While/Until] …Loop（先做在判断，所以会执行一次的）8.下面程序段求两个数中的大数，不正确的语句是（D ）。
A、Max=Iif(x>y,x,y)B、if x>y Then Max=x Else Max=yC、Max=xD、if y>=x Then Max=y（Else）If y>=x Then Max=y Max=x9.以下条件语句错误的是（ A ）。
A、If X Then Y = Y + 1B、If X = 0 Then Y = 0C、If X > 0 Then Y = 1: Print YD、If X > Y Then Print Y End If10.若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（D ）。
A、Text属性值为*B、Caption属性值为*C、Password属性值为空D、PasswordChar属性值为*11.设置标签Label1的属性使它不可见的语句是（D ）。
A、Label1.Visible = -1B、Label1.Visible = 1C、Label1.Visible = trueD、Label1.Visible = False12.修改控件属性，既可以使用属性窗口，也可以通过（D ）为控件属性赋值。
A、属性B、事件C、方法D、代码13.在程序代码中引用一个控件时，应使用控件的（B ）属性。
A）Caption B）Name C）Text D）Index14.若要获得列表框中被选中的列表框的内容，可以通过访问（ B ）属性来实现。
A）Name B）ListIndex C）ListCount D）Text15.以下叙述中正确的是（B ）。
16.A．一个Sub 过程至少要一个Exit Sub 语句（×）B．一个Sub 过程必须有一个End Sub 语句C．可以在Sub 过程中定义一个Function 过程，但不能定义Sub 过程D．调用一个Function 过程可以获得多个返回值填空题（共8空，每空2分，共16分）1.InputBox函数返回值的类型为 string。
2.与事件相关的一段程序代码称为事件过程代码。
3.循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是 6 。
4.可表示[50,100]之间的随机数的语句是 int(rnd*51+50) 。
5.Print方法分区输出时，用逗号分隔多个表达式。
当输出多个表达式或字符串时，各表达式用分隔符(逗号、分号或空格)隔开。
如果输出的各表达式之间用逗号分隔，则按标准输出格式(分区输出格式)显示数据项。
6.强制性退出For…Next循环的语句是exit for 。
7.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的 caption 属性设置成空白。
8.为了把焦点移到某个指定的控件，所使用的方法是setfocus。
基本操作题（共2小题，每小题10分，共20分）1．打开工程文件A3-1.vbp，完成以下操作，并以原文件名保存。
P65[1] 设置窗体运行后出现在屏幕中心；（2分） [2] 设置口令的长度小于等于6；（3分） [3] 设置输入的口令以“*”显示；（3分） [4] 设置“确定”按钮为缺省按钮。
（2分）2．打开工程文件A3-2.vbp ，完成以下操作，并以原文件名保存。
P111[1] 在文本框中输入课程名称，单击“添加”按钮，将该课程添加到列表框中，并清文本框的内容；（3分）[2] 选中列表框某课程，单击“删除”按钮，将选中的课程从列表框中删除；（4分） [3] 单击“清除”按钮，清除列表框中的所有课程。
（3分）程序填空（共4小题，每小题2空，每空3分，共24分）说明：打开已有的工程文件，根据要求实现的功能，在“???????”处用相应的代码代替（不得删除原有的代码，必须在???????处填写），使程序能正常运行。
1． 打开考试目录下的“A4-1.vbp ”，完善程序并保存。
要求：（1） 圆的半径r 利用InputBox 函数从键盘输入（r>0）。
（2） 圆周率定义为符号常量。
（3） 求圆的周长lenth 和面积area 。
（4） 用Print 方法输出圆的周长和面积。
原程序：Private Sub Command1_Click() Dim r As SingleDim lenth As Single, area As Single Const ??????? PI=3.14159r = ?????? Val(InputBox(“圆的半径”,0) lenth = 2 * PI * r area = PI * r * rPrint "半径="; r, "周长="; lenth, "面积="; area End Sub2． 打开考试目录下的“A4-2.vbp ”，完善程序并保存。
要求实现功能：利用Do While …Loop语句求s=12+22+…+1002。
（运行效果如下图所示）。
原程序：Private Sub Command1_Click()Dim n As Integer, s As Longn = 1: s = 0Do While ??????? n<101s = ??????? s+n*nn = n + 1LoopPrint "s="; sEnd Sub3．打开考试目录下的“A4-3.vbp”，完善程序并保存。
已知计算机等级考试的百分制成绩mark，要求用Select Case语句将百分制成绩mark转换成对应五级制的评定grade。
评定条件如下：mark≥85，优60≤mark<85，合格mark<60，不合格要求实现功能：用文本框输入成绩mark，在图片框中用print方法输出评定结果grade 的值。
当单击清除按钮时，会清除文本框及图片框显示的内容（运行效果如下图所示）。
原程序：Private Sub Command1_Click()Dim a As Integera = Val(Text1)Select Case aCase Is > =85grade = "优"Case 60 To 84grade = "合格"?????? Case Is<=59grade = "不合格"End SelectPicture1.Print "成绩评定为："; gradeEnd SubPrivate Sub Command2_Click()Text1 = ""Picture1. ?????? ClsEnd Sub4．打开考试目录下的“A4-4.vbp”，完善程序并保存。
要求实现的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。
（运行效果如下图所示）。
原程序：Private Sub Command1_Click()Dim x As Single, amax As Single, amin As Singlex = InputBox("Enter a score")amax = xamin = xDo While ?????? x>0If x > amax Thenamax = xEnd IfIf ?????? x<=amin Thenamin = xEnd Ifx = InputBox("Enter a score")LoopPrint "最高分="; amax, "最低分="; aminEnd Sub五、程序设计题（10分）编写程序实现以下功能：随机生成10个两位整数，求数组元素之和sum及平均值aver，然后先按原顺序输出数组各元素，再按相反的顺序输出数组各元素，并输出元素之和sum 及平均值aver。
工程文件命名为A5-1.vbp，窗体文件命名为A5-1.frm，程序运行界面如图5-1所示。
（10分）图5-1 程序运行界面1．求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为："; maxPicture1.Print "最小数为："; minPicture1.Print "平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_Activate()Dim i As Integer, j As Integer, k As Integer, n As IntegerFor i = 1 To 100For j = 1 To 100For k = 1 To 100If i * a + j * b + k * c = 100 Thenn = n + 1List1.AddItem " 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & k End IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000 End Sub4.'求完数的过程Private Sub Form_Click() Dim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Then temp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd IfNext iEnd Sub5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出end（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid(n,i,1))next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; n Print "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数（感觉题目类型太多）8. 级数有限项求和问题（题目类型太多）9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:"))I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integer Dim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)>=”A” And UCase(S)<=”Z” ThenA(Asc(UCase(S))-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit Function Dim i As LongFor i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A, B) 'x存入最大值Y = IIf(A <= B, A, B) 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数= YEnd Function3.冒泡排序过程Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = InputBox("输入整数")NextSort aFor i = 0 To 9Print a(i)NextEnd SubPrivate Sub Sort(ByRef a() As Integer) Dim i As IntegerDim j As IntegerDim t As IntegerFor i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step -1If a(j - 1) > a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint "原数组:"For i = 1 To 10a(i) = Rnd * 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 = 0 Then Print Next iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Thent = a(i)a(i。