2020年程序设计基础VB作业题精品版

1、精选文档第一章 练习题精选文档选择题1、不需要编译，计算机便可直接执行的程序是（）。A C 语言程序B Visual Basic 语言程序C 汇编语言程序器语言程序2、下面关于 VB 的叙述中，不正确的是（）。A VB 是美国 Microsoft （微软）公司开发程序设计语言。B VB 是在 20 世纪 60 年代美国 Dartmouth 学院开发的 Basic 语言基础上发 展而形成的。C 用 VB 编写的程序可以在任何操作系统环境中运行。D VB 是面向对象的可视化的软件开发工具。3、下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（ ）。A IDE 是设计、调试、运行 V

2、B 程序的工具。B 打开 / 关闭各窗口的命令主要在 IDE 的“视图”菜单中。C “窗体设计窗口”是用来设计应用程序界面（窗体）的。D 不能往“控件工具箱”中添加其它控件。二、填空题1、如果进入 VB 的集成开发环境后，发现没有“工具箱” ，那么可以打开 （）菜单并选择“工具箱”菜单项，就可使“工具箱”出现。2、（）窗口用来管理一个应用程序所包含的各种资源文件。3、“代码窗口” 用来编写应用程序的 （）。三、简答题1、简单叙述计算机程序设计语言的发展历程。2、简单叙述窗体布局窗口的用途。3、简单叙述属性窗口的用途。四、实验题1、题目编写一个简单的 VB 程序，界面如下图所示。程序有两个按钮。

3、当用户按“显示”按钮时，在窗体上显示出“欢迎使用VB6.0 字样；当用户按“清屏”按钮时，清除窗体上的文字内容。程序有两个标签。一个用来显示显示“ VB程序设计”字样；一个用来显示“系统当前时间”。2、实验目的 初步了解IDE各窗口的用途及操作。 初步了解一个 VB程序的设计过程。 观察一个VB程序的构成。3、实验步骤启动IDE单击任务栏的“开始菜单” t程序tMicrosoft Visual Studio 宀Microsoft VisualBasic6.0便出现“新建工程”对话框，如下图所示。选择“标准EXE”工程类型，按“打开”按钮。便进入了IDE的界面如下图所示：界面设计 在“窗体设计”

4、窗口中摆放控件方法一：单击“控件工具箱”中所要的控件（这时你会发现控件图标凹下去了 ）,把鼠标移到窗体上 （这时你会发现鼠标指针图形变成了 “+”字形），在窗体上初步确 定一个安放点，按住鼠标左键往安放点的右下角拖，当你初步认为大小合适了 便可放开鼠标左键。方法二：双击“控件工具箱”中所要的控件，该控件便被放到窗体中。但要注 意：这种方法默认为把控件放到窗体中，而不能放到其它容器控件中（如：选 项卡，图片框，框架）。 控件的编辑选中控件要想手动地调整一个控件的大小就必须先选中它。选中控件很简单：只要 将鼠标指向该控件并按一下鼠标左键即可。当一个控件被选中后，它的周 围便出现一些小正方形（我们称

5、其为“句柄”）。如果你要同时选中许多控件，你可以按住Ctrl键在用鼠标点选所要的控件。调整大小方法一：将鼠标移到被选中控件上下边的句柄上（这时你会发现鼠标指针图形变成 了双向箭头状），按住鼠标左键上下拖放即可该变控件的高度。将鼠标移到被选中控件左右边的句柄上，按住鼠标左键左右拖放即可该变控件的宽度。方法二：选中要调整的控件，按住shift键，同时按四个键来调整控件的高度、宽度。方法三：通过属性窗口设置该控件的Height属性值可改变控件的高度，设置该控件的Width属性值可改变控件的宽度。调整位置方法一：选中要调整的控件，按住鼠标左键拖放。方法二：选中要调整的控件，按住 Ctrl键，同时按四个

6、键来 调整控件的位置。方法三：通过属性窗口设置该控件的Top属性值，可改变控件顶边到其容器 （窗体）顶边的距离；设置该控件的Left属性值，可改变控件左边到其容器左边的距离。删除控件如果想删除窗体中的某个控件，你可以用鼠标右击该控件，这时会出现一个“快捷菜单”，选择其中的“删除”命令。对齐控件如果你要使一些控件按某种方式对齐，你可以先选中这些控件，然后打开“格式”菜单并把鼠标指向“对齐”命令，从出现的二级菜单中选择所要的对齐方 式。锁定控件如果你已经把一些控件的大小、位置调整好了，你可以把它们锁定，防止误操作改变其位置。锁定控件的步骤是：选中控件，然后打开“格式”菜单，选择“锁定”命令。 设置

7、窗体、控件的属性对象名称对象类 型属性设置值用途Forml窗体Caption-第一早示例11程序界面Picture=窗体背景图片文件名全称， 例如：Picture- "d:VB示例 第一章tx1.bmp ”Labell标签Caption- "VB程序设计”显示 个标题Label2标签Captio n-系统当前时间显示系统时间Comma nd1命令按钮Caption="显示”在窗体上打印文字Comma nd1命令按 钮Caption= ”清屏”清除窗体上的文字Timer1时钟Interval=100 (单位是：毫秒)闹钟为相关控件的有关事件过程编写程序代码对命令按钮

8、Command1的Click (即鼠标左单击)事件过程编写如下代码Private Sub Comma nd1_Click()Curre ntX = 2100Curre ntY = 500Print"欢迎使用 VB"End Sub对命令按钮 Command2的Click事件过程编写如下代码Private Sub Comma nd2_Click()ClsEnd Sub对时钟的Timer1的Timer事件过程编写如下代码Private Sub Timer1_Timer()Label2.Captio n = Time()End Sub注意：事件过程的头、尾是系统自动给出的，不须用户

9、输入。 运行、结束程序运行程序方法一：点击工具栏上的“启动”按钮，如右图所卜 示：方法二：打开“运行”菜单t选择“启动” 方法三：按功能键F5结束程序方法一：点击工具栏上的“结束”按钮，如右图所示：|H方法二：打开“运行”菜单t选择“结束” 方法三：点击程序窗体上的“关闭”按钮 方法四：按住Ctrl键，再按Break键。保存程序一个应用程序设计完成后，程序被存放在计算机的内存中。如果计算机被 关闭或重启，程序就会丢失。要想使程序长期保存，就必须把程序存放在计算 机的磁盘中。按工具栏中的“保存”按钮，如右图所示：:然后在出现的“对话框”中，选择文件的存放位置、文件名。当把所有的窗体文件、工程文件

10、都存储完后，出现一个如下图所示的对话框:修改程序要对已经存过盘的工程进行修改，步骤如下:到存放工程的文件夹双击“工程文件”，图标如下图修改存盘4、思考回答问题 当一个程序被存盘后，有那些文件？能否用Windows的重命名功能对某个文件重命名？ 当你使用 Windows的复制功能将“工程文件”复制到另一个文件夹中，然 后双击该文件图标会出现什么情况？为什么？ 能否双击“窗体文件”打开工程，为什么？第二章 练习题选择题1、当窗体被关闭时，系统自动执行该窗体的 事件过程。（ A ） Click （ B） Load （ C） Unload （ D） LostFocus2、如果 Print 方法在窗体的

11、 Load 事件过程中不起作用，原因是（ ）属性 的值为 false。（A） AutoRedraw （B）Moveable （C） MaxButton （D ） ControlBox3、在运行时，要使窗体既不能移动有不能改变大小，应设置 BorderStyle=（） 。（A） 0 （B ） 1 （C）2 （D ） 34、要使窗体运行时充满整个屏幕，应设置其（）属性。（A） Height （B）Width （ C）WindowState （D） AutoRedraw5、要使标签控件的大小随Caption 属性值而自动调整，应设置其（ ）属性。A ) Width (B) AutoSize (C)

12、Caption ( D ) Alignment）属性。（D ） Font）属性。BackStyle （ D） ToolTipText6、要设置标签控件字体的大小，应设置其（ （A）Height （B）Width （ C） Caption7、要使标签控件标题内容居中显示，应设置其（ （ A） Alignment （ B） Appearance （ C）8、程序运行时，要使用户不能修改文本框中的内容，那么应设置A ) Enabled=FalseB ) MultiLine=False（ C） Locked=True（ D ） PasswordChar=”* ”9、当设置文本框的 ScrollBars

13、=Both 而文本框确没有显示出滚动条，原因 是（ ）。（ A ）文本框中没有内容（ B ）文本框的 MultiLine=False（C）文本框的 Locked=True（ D）文本框的 MultiLine=True10、程序运行时， 要使用户不能修改文本框中的内容， 那么应设置 （ A） Enabled=False（ B） MultiLine=False（ C） Locked=True（ D） PasswordChar=”* ”11、要使鼠标指向 “命令按钮” 时，出现一个提示文本， 应设置其 属性。（ A） Caption （ B） Picture（ C） ToolTipText （ D）

14、 Style12、 要使命令按钮在运行时能力丧失（不能用），Enabled= （）。（A） True（B） False13、 使命令按钮获得“焦点”的方法是（）。A) LinkSend ( B) Move( C) SetFocus ( D) Refresh14、一个窗体上有三个文本框，按放置顺序分别是：Text1， Text2 ， Text3 ，若使程序运行时 Text3 首先获得“焦点” ，那么，应设置其（ ）属性值 为0 。（ A） Top （B） Tag （ C） Tabindex （ D） Index15、一个窗体上有两个文本框， 按放置顺序分别是： Text1 ，Text2 ，要想在

15、 Text1 中按“回车” 键，“焦点” 自动转到 Text2 上，应在 （）处编写程序。（ A ） Private Sub Text1_KeyPress（KeyAscii As Integer）（B ） Private Sub Text1_LostFocus（）（C） Private Sub Text2_GotFocus（） （D ）Private Sub Text1_Click（） 16、用一个对象来表示： “一只白色的足球被踢进球门” ，那么，白色、足球、 踢、进球门分别是（ ）。（A ）属性、对象、方法、事件（ B ）属性、对象、事件、方法（C）对象、属性、方法、事件（D）对象、属性、

16、事件、方法17、下面关于对象属性的叙述中，不正确的是（）。A 属性是对一个对象特征的描述。B 属性都有名称、取值类型、值。C 属性的值必须在设计时确定。D 有些属性的值可以在程序运行时改变。二、填空题1、当双击控件工具箱中的控件是，系统默认地把控件放到（）中。2、 一般来说对象有属性、方法、事件，（）是指对象具有作某种事的能力。3、app.path 返回值的含义是 （ ）。4、 要使标签背景透明（与其容器的背景一致），应设置其（）属性值为 0。5、文本框的 MaxLength=0 的含义是（ ）。6、往当前工程中添加窗体的操作步骤是：打开（）菜单，选择（ ）命令。三、简答题1、假如一个工程有两

17、个窗体 Form1 、 Form2 ，其中 Form1 为启动窗体，如果你 想让 Form2 为启动窗体，应如何操作？2、简述“标签”与“文本框”的区别。3、假如一个窗体上有三个“文本框”，按放置顺序依次为 Textl、Text2、Text3 ,若要使程序运行时，Text3首先获得“焦点”，应如何操作？四、实验题实验一1、题目设计一个简单VB小程序，界面如下右图所示。第一个输出项 笫二个输出项 现在的时冋是I 10:30:19k= 5y= 4 x+尸 10Movef 法窗体上有三个命令按钮，按“Print方法”按钮在窗体上显示信息；按“ Cis方法”按钮清除窗体的信息；按“Move方法”按钮使

18、窗体往右下角移动。窗体被加载时，在窗体的标题栏中显示“第二章实验一”字样。2、实验目的 了解窗体Load事件的发生条件及用途。初步掌握窗体的 Print、Cis、Move方法的使用。初步掌握命令按钮的 Clik事件的发生条件及用途。3、实验步骤界面设计对象名称对象类 型属性设置值用途Forml窗体Fon t.size=24程序界面Comma nd1命令按钮Caption= "Print 方法”在窗体上打印文字Comma nd2命令按钮Caption= "Cis 方法”清除窗体上的文字Comma nd3命令按钮Caption= "Move 方法”移动窗体代码设计Pr

19、ivate Sub Form_Load()Caption ="第二章实验一 ”Fo nt.sEnd SubPrivate Sub Comma nd1_Click()Print"第一个输出项","第二个输出项”Print "现在的时间是：”;Time()Prin t "x=" 5, "y=" 4;Prin t "x+y=" 10End SubPrivate Sub Comma nd2_Click()ClsEnd SubPrivate Sub Comma nd3_Click()Move L

20、eft + 100, Top + 100End Sub4、思考问题应如何调整窗体的 Print起始打印位置。 在程序代码中，如何使“命令按钮”获得“焦点”实验二1、题目设计一个简单VB小程序，界面如下右图所示。窗体上有两个“标签”，两个“文本框”，一个“命令按钮”。当程序运行时, 用户在上面的“文本框”中输入圆的半径，然后点击“计算”按钮，程序便计 算出圆的周长、面积并显示在下面的“文本框”中。2、实验目的初步掌握“标签”的基本属性及使用。初步掌握“文本框”的基本属性及使用。 利用“文本框”输入、输出数据。 如何使“焦点”从一个对象上转移到另一个对象上。3、实验步骤界面设计对象名称对象类 型属

21、性设置值用途Forml窗体Capti on=第一早实验一应用程序界面Labell标签Caption= ”请输入圆的半径”提示用户Label2标签Caption-圆的周长、面积提示用户Textl文本框接受用户输入Text2文本框MultiLi ne-True显示计算结果Comma nd1命令按钮Caption-"计算”作计算程序代码Private Sub Comma nd1_Click()Dim r1, zc!, mj!r = Val(Text1.Text)zc = 2 * 3.14 * rmj = 3.14 * r A 2Text2 ="圆的周长="+ Str(z

22、c) + vbCrLfText2 = Text2 + "圆的面积="+ Str(mj)End SubPrivate Sub Text1_GotFocus()Textl =""Text2 =""End SubPrivate Sub Text1_KeyPress(KeyAscii As In teger)If KeyAscii = 13 ThenComma nd1.SetFocusEnd IfEnd Sub4、思考问题请指出该程序的缺陷。为什么要在text1的GotFocus事件过程中，清空两个文本框的内容?第三章练习题一、选择题1、表达

23、式 16/4-2人5*8/4Mod 52 = （）。（A） 14 （B） 4（ C） 20（ D ） 22、数学式3 < X V 5写成VB表达式是（）（A）3<=X<5（ B） 3<=X or X<5（C） 3<=X and X<5（D）X>=3 and <53、x=2 ，则表达式 x+1>2 Or sin（ x ） >0.9 And 3>x+3= （ ）。 （A）True （ B） False（ C ） 不能计算4、将逻辑型数据转换成整型数据时，转换规则是（）。（A）将 True 转换为-，将False 转换为0（ B

24、）将 True 转换为1，将False 转换为-（ C）将 True 转换为0，将False 转换为-1（ D ）将 True 转换为1，将False 转换为05、下面正确的变量名是（）。（ A）3xy（ B） xy_01（ C） sa t01（ D ） integer6、 Int（-3.1）+round （-4.6）=（ A） -8 （B ）-7 （C） -9 （D）-67、对不同类型的运算符优先级规定是（）。> 关系运算符> 关系运算符> 逻辑运算符> 逻辑运算符> 逻辑运算符> 逻辑运算符> 关系运算符> 算术运算符（A） （ B） （ C

25、） （ D ）字符运算符 > 算术运算符 > 算术运算符 > 字符运算符 >算术运算符 字符运算符 字符运算符 关系运算符8、k=12.5， len（ str（ k ） ）=（） 。（A）4（ B） 3（C） 5（D） 29、len（“vb程序设计 ”）=（） 。（ A）5（B） 10（ C） 2（ D ） 610 、随机产生 10 ， 50 之间整数的正确表达式是（）。（A）Round（ Rnd*51）（B）Int（Rnd*40+10）（ C）Round（ Rnd*50）（ D ）10+Int（Rnd*41）11、赋值语句 A=123 + Mid$（ “123456”

26、,3,2） 执行后， A= （ ）。（ A） ”12334” （B） 123 （C） 12334 （D）15712、Val （“123ab”）=（）。（A）0 （B）123 （C）1230 （ D ） 不能转换13、当 Ucase$（C$）> ”A ” and Ucase$（C$）< ”Z”为 true 时，贝U C$是(A) 大写字母(B)小写字母(C)字母 (D)不一定14、InStr(1, eFCdEfGh”，“EF”，1)=()。(A)5(B)6(C)0 (D)1二、填空题1、si n15x e3的VB表达式为(2、把X是5或7的倍数写成VB表达式是()。3、表达式 Uca

27、se( Mid ("abcdefgh”，3,4 ) = ()。4、k=123%，贝U Len (Str ( k)=()。5、表示变量S是字母(不分大小写)的VB表达式是()。6、DateAdd ( ”m” , 1 , #1/25/2004# )=()。7、 IsNumeric (” 123asd) = ()。8、 取出一个三位整数 x的十位上的数字(例如：324十位上的数字是 2)的VB 表达式是(三、实验题1、题目编写一个程序，界面如下图所示。当用户单击“开始”按钮时，程序随机产生两个1-100之间的整数a和b，并把”a+b= ”字样显示在标签 Label1中，等待用 户在文本框t

28、ext1中输入答案。当用户在文本框text1中输入了答案并按“回车”键后，程序开始判断答案是否正确，并将判断结果显示在标签Label2中，同时将“焦点”放到“开始”按钮上。5+ 41 =正确2、实验目的 学习使用Rnd函数产生指定范围的随机数。进一步理解文本框的 KeyPress事件的应用。 了解程序的控制流程。3、实验步骤 界面设计对象名称对象类 型属性设置值用途Form1窗体Caption="第三章实验一 ”应用程序界面Label1标签程序运行时，设置 Caption属性值显示题目Label2标签程序运行时，设置 Caption属性值显示判断结果Text1文本框接受用户输入答 案

29、Comma nd1命令按钮Caption="开始”出题程序代码在窗体的“通用”，“声明”中，输入如下代码Dim a%, b%, c%在命令按钮 Command1的Click事件过程中，输入如下代码Labell.Caption =""Label2.Caption =""Textl =""Ran domizea = Roun d(R nd * 99 + 1)b = Roun d(R nd * 99 + 1)Label1.Caption = Str(a) + "+" + Str(b) + "=&quo

30、t;Text1 .SetFocus在文本框Text1的KeyPress事件过程中，输入如下代码If KeyAscii = 13The nc = Val(Text1)If c = a + b The nLabel2.Caption ="正确"ElseLabel2.Caption ="错误"End IfComma nd1. SetFocusEnd if4、思考问题 如果要想制作一个能做加、减、乘、除运算练习的程序，界面应如何设计?第四章练习题一、单项选择题1、 下面正确的赋值语句是（）。（A） x=y=1（ B） x+y=1（C） x=x+1（ D） sin

31、（x）=52、MsgBox（）过程的正确语法是（）。（A） MsgBox（提示信息，标题，按钮类型）（B）MsgBox（标题，按钮类型，提示信息）（C）MsgBox（标题，提示信息，按钮类型）（D）MsgBox（提示信息，按钮类型，标题）3、InputBox$（）函数返回值的数据类型是（）。(A)数值型（B） 字符型（C）变体型 （D ）逻辑型4、用 if语句表示分段函数丿Jx +12XX 1不正确的程序段是、X +3X()0(A)f=xA2+3(B) ifx>=1the nif x>=1 the nf=sqr(x+1)f=sqr(x+1)elseEnd iff=xA2+3End

32、if(C) if x>=1 the n(D) if x>=1the nf=sqr(x+1)f=sqr(x+1)End ifEnd iff=xA2+3if x<1then f=xA2+3End if5、X是单精度类型变量，用Select语句表示下列处理的正确语句是。当0wX v 60时，输出“不及格”；当60W X v 70时，输出“及格”； 当70W X v 80时，输出“中”;当80w X v 90时，输出“良”;当90w X w 100时，输出“优”。(A) Select case XCase 0 w X v 60Print “不及格 ”Case 60w Xv 70Pri

33、nt “及格 ”Case 70w Xv 80Print “中 ”Case 80w Xv 90Print “良 ”Case 90w Xw 100Print “优 ”Case elsePrint “不在转换范围内 ”End Select(C) Select case XCase is v 60Print “不及格 ”Case is v 70Print “及格 ”Case is v 80Print “中 ”Case is v 90Print “良 ”Case is w 100Print “优 ”Case elsePrint “不在转换范围内 ” End Select(B) Select case X

34、Case 0 to 59Print “不及格 ”Case 60 to 69Print “及格 ”Case 70 to 79Print “中 ”Case 80 to 89Print “良 ”Case 90 to 100Print “优 ”Case elsePrint “不在转换范围内 ”End Select(D) Select case XCase is v =100Print “优秀 ”Case is v 90Print “良好 ”Case is v 80Print “中 ”Case is v 70Print “合格 ”Case is v 60Print “不及格 ”Case elsePrin

35、t “不在转换范围内 ” End Select6、下面关于fornext循环的叙述中，不正确的说法是()。(A) 省略步长，系统默认为：步长是 1(B) 循环变量必须是数值型(C) 循环体内必须有 Exit For 语句(D) 如果初值大于终值， 不能省略 step 步长，否则循环只能执行一次。7、 下面哪个程序 不能 正确显示 1！， 2！， 3！， 4！的值()。（ A） for i=1 to 4 （ B）n=1for j=1 to In=n*jnext jprint nnext i（C） n=1（ D）for j=1 to 4 n=n*j print n next j 8、下列循环能正常

36、结束的是（ A ） i=5 do i=i+1 loop until i<0（ C）i=10do i=i+1 loop until i>09、下列if 语句中，语法不正确的是（A）ifx>1then print x（C）ifx>1thenprintxif x>2 then y=x+1endif10、下面程序运行时会出现（ Dim k% ， I% k = 1for i=1 to 4 for j=1 to i n=1 n=n*j next j print n next in=1 : j=1do while j<5n=n*jprint n : j=j+1loop）。

37、（ B） i=1 do i=i+2 loop until i=10（ D）i=6do while i>0 i=i+2 loop）。（B）if x+1>3 then print x else 丄a”print “error ” end if（D） if x>2 then y=x+1 end if）错误。For i = 1 To 10 k = k * iNext iPrint k(A)溢出(B)循环缺少step (C)变量I定义时大写，使用时小写二、填空题1、x=5 ， y=12,那么 iif( x>y , x , y )=(2、要使 FOR k=() to -5 STEP

38、多少？)-2语句循环20次，k的初值应是3、1=5，则 choose( I，”+”,”/”)=()。4、一条语句要在下一行继续写，用()符号分隔。三、写出程序运行结果1、X=I nt( Rnd )+3IfxA2>8the ny=xA2+1IfxA2=9the ny=xA2-2IfxA2<8the ny=xA3Print y2、dim I% , S%s=0for I=1to 5 steps=s+inext I-1printa ?s= ;s3、dimI% , S%s=0forI=5 to 1s=s+in extIprinta ?s= ; s4、DimI% , n%n=0For I =1

39、 To 20 Step 21=1+2n=n +1Next IPrint循环执行次数=” n ,退出循环时，循环控制变量的值=” I 5、Dim I% , J%FOR I=1 TO 5 Print Spc(I);FOR J=I TO 5Print ”NEXT JPrintNEXT I6、dim a% , b% , I% , j% , s$ b=10 : a=3for I=b to a step -2 b=a+b a=a+bs= *for j=b toa step -1s=s & print 在J循环内打印的内容是：” ;snext j print 在I循环内打印的内容是：” ;snext

40、 i四、程序填空1、下面的程序段是检查输入的算术表达式中园括号是否配对，并显示响应的结 果。本程序在文本框中输入表达式，边输入，边统计，以输入回车符作为表达 式输入结束。然后显示结果。Dim cou nt1%在窗体的通用声明中定义Private Sub Text1_KeyPress( KeyAscii As In teger )If = ” The ncoun t1=co un t1+1elseif = ”)” ThenEnd IfIf KeyAscii=13 ThenIf ThenPrint “左右括号配对 ”Elseif ThenPrint “左括号多于右括号 ”； count1； ”个

41、”ElsePrint 右括号多于左括号”；-count1;"个”End ifEnd ifEnd Sub2、输入若干字符，统计有多少个元音字母、多少个其他字母，直到按回车键结 束，并显示结果，不区分字母的大小写。变量 countX 存放元音字母个数，变量 countY 存放其他字母个数。Dim CountX% , CountY% 在窗体的通用声明中定义Private Sub Text1_KeyPress( KeyAscii As Integer )Dim ST$ST= If “A ”<=ST And ST<=”Z” ThenSelect Case Case CountX=C

42、ountX+1Case CountY=CountY+1End SelectEnd IfIf ThenPrint “元音字母有 ”； CountX； ”个”Print “其他字母有 ”； CountY； ”个”End IfEnd Sub3、下面是一个求 100 以内的素数的程序。每行输出 5 个素数。Dim I%, j% ,m%, pd as BooleanFor I=2 to 100Pd=trueFor j=2 to I-1If I mod j =0 thenPd=Exit forEnd ifNext jIf pd thenM=M+1If M mod 5 =0 thenEnd if End i

43、f Next I4、下面是一个将输入的字符串以相反顺序打印出来的程序。例如：输入： ”asdfgh” 输出： ”hgfdsa”dim st1$ , st2$ , n% , I% st1=inputbox$( “请输入字符串 st1：”)n=st2=for i=n to 1 step -1st2=+mid(st1,I,1)next i print st25、下面是一个计算 S=1+ (1+2) + (1+2+3) +(1+2+n)的程序，程序运行 时，用户输入n的值，程序便可计算出S的值并显示出来。请在程序中的下划线 处填上适当的语句，使程序完整。Dim I% , J% , n% , T! ,

44、S!n=val( inputbox( “请输入 n 的值 ”)T=0For I=1 to nT=T+INext IPrint “S=”; S6、下面是一个用辗转相除法求两个正整数A，B 的最大公因数的程序，请在下划线处填上正确的语句。Dim A% , B% , R% ,A=Val ( InputBox( 请输“入 A= ”)if A<B thenEnd ifDoR=A Mod BIf R=0 thenEnd ifA=BB=RLoopPrint “最大公因数是： ”； 7、下面程序运行时，对输入 Text1 中的一行字母（均为小写）进行统计，统计 a _z 各字母出现的次数，然后将统计结果

45、输出到Text2 中。 （ 提示： a_z 的ASCII 码为 97_122 ）4.冋田焼计结果:Private Sub Comma nd1_Click()Dim a(1 To 26) As Integer用来存放字母 a_z出现的次数Dim i% , n% , st$Text1 = Trim(Text1)n = Len( Text1)For i = 1 Toa( i) = 0 Next iFor i = 1 To st = Mid$(Text1 , i , 1)The nIf Asc(st) >= 97 And Asc(st) <= 122a(Asc(st) - 96)=End

46、IfNext iText2 =For i = 1 To 26Text2 =Next iEnd Sub7、下面程序的功能是：找出被3、5、7除，余数为1的最小的5个整数。Dim Cou ntN% , N%Cou ntN=ON=1DoN=N+1If N mod 3=1 and N mod 5=1 and N mod 7=1 the nPrint NCou ntN= Cou ntN+1End ifLoop 五、程序设计1、 设计一程序，用户输入三角形的三条边A , B, C的长度，然后程序判断它 们能否构成三角形。如果能构成三角形，则计算出面积并输出，然后程序结束；如果不能构成三角形，则提示用户：不

47、能构成三角形并转回重新输入。计算面积的公式为：面积 =. L（L二A）（L二B）（L匚C） ，L=（A+B+C）/22、 写一个程序打印出所有的“水仙花数”。水仙花数是指三位的正整数，其各位数字的立方之和等于该正整数本身。例如：407=4*4*4+0*0*0+7*7*7 。X2 X4x2n3、 设计程序计算Cosx=1-+ .+ （-1）n+ .（ n=0、1、2），要2!4!（2n）!求用户输入x值及精度值后，程序计算出Cosx且误差小于精度值。六、实验题实验一1、题目编写一个求圆的周长和面积的程序，初始界面如：图一所示。当用户点击“开始”按钮时，打开如：图二所示的对话框，当用户输入圆的半径

48、并按其上的“确定”按钮（或打“回车”键）后，程序计算出周长和面积并出现如：图三所示 的画面。图一图图三2、实验目的学习掌握利用inputbox$()函数来为变量赋值。 学习控件的隐藏与显现技术的应用。进一步掌握程序控制逻辑。3、实验步骤 界面设计对象名对象类型属性设置用途Forml窗体Caption="第四章实验一 ”Labell标签Captio n= ”计算圆的周长和面积”Textl:文本框Visible=FalseComma nd1命令按钮Caption="开始”代码设计Private Sub Comma nd1_Click()Dim r!, zc!, mj!Text1

49、.Visible = Falser = Val(lnputBox("请输入圆的半径:","输入数据", 2.5) zc = 2 * 3.14 * rmj = 3.14 * r A 2Textl.Visible = TrueTextl =""Textl ="圆的周长="+ Str(zc) + vbCrLfTextl = Textl + "圆的面积="+ Str(mj)Comma ndl.SetFocusEnd Sub4、思考问题为什么程序开始时要隐藏文本框textl。 此程序有一个明显的、致命的缺

50、陷，请指出来。实验二1、题目设计一个程序，它由两个窗体构成，窗体Forml是登录窗体，如图一所示；窗体Form2是程序的主窗体，如图二所示。程序运行时，首先出现“登录”窗体， 当用户输入正确的用户名（假定：用户名是student，密码是123456）并点击“确定按钮”时，程序开始验证其正确性。如果正确，则关闭“登录”窗体并打开主窗 体；否则让用户重新输入用户名和密码。图一图2、实验目的 学习如何向工程添加窗体。学习窗体的打开与关闭技术。3、实验步骤建立工程设计窗体forml界面设计对象名对象类型属性设置用途Forml窗体Caption="登录程序”Labell标签Caption=&q

51、uot;用户名”提示用户Label2:标签Caption="密码”提示用户Textl文本框接收用户输入Text2:文本框PasswordChar= "* ”接收用户输入Comma nd1命令按钮Caption="开始”验证用户名及密码代码设计Private Sub Comma nd1_Click()If Trim(Textl) = "stude nt" A nd Trim(Text2) = "123456" ThenUni oad Form1Form2.ShowElseMsgBox "用户名或密码错误”Textl

52、=""Text2 =""Textl.SetFocusEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As In teger) If KeyAscii = 13 ThenText2 =""Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As In teger) If KeyAscii = 13 ThenComma ndl.SetFocusEnd IfEnd Sub向工程添加并设计窗体 form2打开“工程”菜单

53、，点选“添加窗体”命令，出现的如下对话框:如果要添加一个“新建”窗体则直接按“打开”按钮即可；如果要添加一个 原来已经建立好的窗体则点击“现存”选项卡，在打开的对话框中选择你要的 窗体。 界面设计与实验一基本相同 代码设计Private Sub Comma nd1_Click()Dim r!, zc!, mj!, st$Label1.Visible = FalseText1.Visible = False11: st = Val(InputBox("请输入圆的半径：","输入数据", 2.5)If Not IsNumeric(st) The nMsgBox "半径必须是数字”GoTo l1Elser = Val(st)En