《程序设计基础VB》作业题讲课稿

1、Good is good, but better carries it.精益求精，善益求善。程序设计基础VB作业题-第一章练习题一、选择题1、不需要编译，计算机便可直接执行的程序是（）。AC语言程序BVisualBasic语言程序C汇编语言程序D机器语言程序2、下面关于VB的叙述中，不正确的是（）。AVB是美国Microsoft（微软）公司开发程序设计语言。BVB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。C用VB编写的程序可以在任何操作系统环境中运行。DVB是面向对象的可视化的软件开发工具。3、下面关于VB的集成开发环境（IDE）的叙述中，不正确的是

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

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

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

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

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

7、章示例1”程序界面Picture=窗体背景图片文件名全称，例如：Picture=”d:VB示例第一章tx1.bmp”Label1标签Caption=”VB程序设计”显示一个标题Label2标签Caption=系统当前时间显示系统时间Command1命令按钮Caption=”显示”在窗体上打印文字Command1命令按钮Caption=”清屏”清除窗体上的文字Timer1时钟Interval=100（单位是：毫秒）闹钟为相关控件的有关事件过程编写程序代码对命令按钮Command1的Click（即鼠标左单击）事件过程编写如下代码PrivateSubCommand1_Click()CurrentX=

8、2100CurrentY=500Print欢迎使用VBEndSub对命令按钮Command2的Click事件过程编写如下代码PrivateSubCommand2_Click()ClsEndSub对时钟的Timer1的Timer事件过程编写如下代码PrivateSubTimer1_Timer()Label2.Caption=Time()EndSub注意：事件过程的头、尾是系统自动给出的，不须用户输入。运行、结束程序运行程序方法一：点击工具栏上的“启动”按钮，如右图所示：方法二：打开“运行”菜单选择“启动”方法三：按功能键F5结束程序方法一：点击工具栏上的“结束”按钮，如右图所示：方法二：打开“运

9、行”菜单选择“结束”方法三：点击程序窗体上的“关闭”按钮方法四：按住键，再按键。保存程序一个应用程序设计完成后，程序被存放在计算机的内存中。如果计算机被关闭或重启，程序就会丢失。要想使程序长期保存，就必须把程序存放在计算机的磁盘中。按工具栏中的“保存”按钮，如右图所示：然后在出现的“对话框”中，选择文件的存放位置、文件名。当把所有的窗体文件、工程文件都存储完后，出现一个如下图所示的对话框：修改程序要对已经存过盘的工程进行修改，步骤如下：到存放工程的文件夹双击“工程文件”，图标如下图修改存盘4、思考回答问题当一个程序被存盘后，有那些文件？能否用Windows的重命名功能对某个文件重命名？当你使用

10、Windows的复制功能将“工程文件”复制到另一个文件夹中，然后双击该文件图标会出现什么情况？为什么？能否双击“窗体文件”打开工程，为什么？第二章练习题一、选择题1、当窗体被关闭时，系统自动执行该窗体的_事件过程。（A）Click（B）Load（C）Unload（D）LostFocus2、如果Print方法在窗体的Load事件过程中不起作用，原因是（）属性的值为false。（A）AutoRedraw（B）Moveable（C）MaxButton（D）ControlBox3、在运行时，要使窗体既不能移动有不能改变大小，应设置BorderStyle=()。（A）0（B）1（C）2（D）34、要使窗

11、体运行时充满整个屏幕，应设置其（）属性。（A）Height（B）Width（C）WindowState（D）AutoRedraw5、要使标签控件的大小随Caption属性值而自动调整，应设置其（）属性。（A）Width（B）AutoSize（C）Caption（D）Alignment6、要设置标签控件字体的大小，应设置其（）属性。（A）Height（B）Width（C）Caption（D）Font7、要使标签控件标题内容居中显示，应设置其（）属性。（A）Alignment（B）Appearance（C）BackStyle（D）ToolTipText8、程序运行时，要使用户不能修改文本框中的内容

12、，那么应设置_。（A）Enabled=False（B）MultiLine=False（C）Locked=True（D）PasswordChar=”*”9、当设置文本框的ScrollBars=Both而文本框确没有显示出滚动条，原因是（）。（A）文本框中没有内容（B）文本框的MultiLine=False（C）文本框的Locked=True（D）文本框的MultiLine=True10、程序运行时，要使用户不能修改文本框中的内容，那么应设置_。（A）Enabled=False（B）MultiLine=False（C）Locked=True（D）PasswordChar=”*”11、要使鼠标指向“

13、命令按钮”时，出现一个提示文本，应设置其_属性。（A）Caption（B）Picture（C）ToolTipText（D）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、一个窗体上有两个文本框，按

14、放置顺序分别是：Text1，Text2，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（）处编写程序。（A）PrivateSubText1_KeyPress(KeyAsciiAsInteger)（B）PrivateSubText1_LostFocus()（C）PrivateSubText2_GotFocus()（D）PrivateSubText1_Click()16、用一个对象来表示：“一只白色的足球被踢进球门”，那么，白色、足球、踢、进球门分别是（）。（A）属性、对象、方法、事件（B）属性、对象、事件、方法（C）对象、属性、方法、事件（D）对象、属性、事件、方法17、下面

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

16、动窗体，如果你想让Form2为启动窗体，应如何操作？2、简述“标签”与“文本框”的区别。3、假如一个窗体上有三个“文本框”，按放置顺序依次为Text1、Text2、Text3，若要使程序运行时，Text3首先获得“焦点”，应如何操作？四、实验题实验一1、题目设计一个简单VB小程序，界面如下右图所示。窗体上有三个命令按钮，按“Print方法”按钮在窗体上显示信息；按“Cls方法”按钮清除窗体的信息；按“Move方法”按钮使窗体往右下角移动。窗体被加载时，在窗体的标题栏中显示“第二章实验一”字样。2、实验目的了解窗体Load事件的发生条件及用途。初步掌握窗体的Print、Cls、Move方法的使用

17、。初步掌握命令按钮的Clik事件的发生条件及用途。3、实验步骤界面设计对象名称对象类型属性设置值用途Form1窗体Font.size=24程序界面Command1命令按钮Caption=”Print方法”在窗体上打印文字Command2命令按钮Caption=”Cls方法”清除窗体上的文字Command3命令按钮Caption=”Move方法”移动窗体代码设计PrivateSubForm_Load()Caption=第二章实验一Font.sEndSubPrivateSubCommand1_Click()Print第一个输出项,第二个输出项Print现在的时间是：;Time()Printx=;5

18、,y=;4;Printx+y=;10EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()MoveLeft+100,Top+100EndSub4、思考问题应如何调整窗体的Print起始打印位置。在程序代码中，如何使“命令按钮”获得“焦点”。实验二1、题目设计一个简单VB小程序，界面如下右图所示。窗体上有两个“标签”，两个“文本框”，一个“命令按钮”。当程序运行时，用户在上面的“文本框”中输入圆的半径，然后点击“计算”按钮，程序便计算出圆的周长、面积并显示在下面的“文本框”中。2、实验目的初步掌握“标签”的基本属性及

19、使用。初步掌握“文本框”的基本属性及使用。利用“文本框”输入、输出数据。如何使“焦点”从一个对象上转移到另一个对象上。3、实验步骤界面设计对象名称对象类型属性设置值用途Form1窗体Caption=”第二章实验二”应用程序界面Label1标签Caption=”请输入圆的半径”提示用户Label2标签Caption=”圆的周长、面积”提示用户Text1文本框接受用户输入Text2文本框MultiLine=True显示计算结果Command1命令按钮Caption=”计算”作计算程序代码PrivateSubCommand1_Click()Dimr1,zc!,mj!r=Val(Text1.Text)

20、zc=2*3.14*rmj=3.14*r2Text2=圆的周长=+Str(zc)+vbCrLfText2=Text2+圆的面积=+Str(mj)EndSubPrivateSubText1_GotFocus()Text1=Text2=EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub4、思考问题请指出该程序的缺陷。为什么要在text1的GotFocus事件过程中，清空两个文本框的内容？第三章练习题一、选择题1、表达式16/4-25*8/4Mod52=()。（A

21、）14（B）4（C）20（D）22、数学式3X5写成VB表达式是（）。3=X5（B）3=XorX5（C）3=XandX=3and2Orsin（x）0.9And3x+3=（）。（A）True（B）False(C)不能计算4、将逻辑型数据转换成整型数据时，转换规则是（）。（A）将True转换为1，将False转换为0（B）将True转换为1，将False转换为1（C）将True转换为0，将False转换为-1（D）将True转换为1，将False转换为05、下面正确的变量名是（）。（A）3xy（B）xy_01（C）sat01（D）integer6、Int(-3.1)+round(-4.6)=_。（

22、A）-8（B）-7（C）-9（D）-67、对不同类型的运算符优先级规定是（）。（A）字符运算符算术运算符关系运算符逻辑运算符（B）算术运算符字符运算符关系运算符逻辑运算符（C）算术运算符字符运算符逻辑运算符关系运算符（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

23、、赋值语句A=123+Mid$(“123456”,3,2)执行后，A=（）。（A）”12334”（B）123（C）12334（D）15712、Val(“123ab”)=（）。（A）0（B）123（C）1230(D)不能转换13、当Ucase$(C$)”A”andUcase$(C$)”Z”为true时，则C$是_。(A)大写字母（B）小写字母（C）字母（D）不一定14、InStr(1,“eFCdEfGh”，“EF”，1)=（）。(A)5（B）6（C）0（D）1二、填空题1、sin15SKIPIF10+SKIPIF10的VB表达式为（）。2、把X是5或7的倍数写成VB表达式是（）。3、表达式Uca

24、se（Mid（”abcdefgh”,3,4）=（）。4、k=123%，则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中，等待用户在文本框text1中输入答案。当用户在文本框text1中输入了答案并按“

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

26、a%,b%,c%在命令按钮Command1的Click事件过程中，输入如下代码Label1.Caption=Label2.Caption=Text1=Randomizea=Round(Rnd*99+1)b=Round(Rnd*99+1)Label1.Caption=Str(a)+Str(b)+=Text1.SetFocus在文本框Text1的KeyPress事件过程中，输入如下代码IfKeyAscii=13Thenc=Val(Text1)Ifc=a+bThenLabel2.Caption=正确ElseLabel2.Caption=错误EndIfCommand1.SetFocusEndif4、思

27、考问题如果要想制作一个能做加、减、乘、除运算练习的程序，界面应如何设计？第四章练习题一、单项选择题1、下面正确的赋值语句是（）。（A）x=y=1（B）x+y=1（C）x=x+1（D）sin(x)=52、MsgBox()过程的正确语法是（）。（A）MsgBox(提示信息，标题，按钮类型)（B）MsgBox(标题，按钮类型，提示信息)（C）MsgBox(标题，提示信息，按钮类型)（D）MsgBox(提示信息，按钮类型，标题)3、InputBox$()函数返回值的数据类型是（）。（A）数值型（B）字符型（C）变体型(D)逻辑型4、用if语句表示分段函数SKIPIF10SKIPIF1=1thenifx

28、=1thenf=sqr(x+1)f=sqr(x+1)elseEndiff=x2+3Endif(C)ifx=1then(D)ifx=1thenf=sqr(x+1)f=sqr(x+1)EndifEndiff=x2+3ifx1thenf=x2+3Endif5、X是单精度类型变量，用Select语句表示下列处理的正确语句是（）。当0X60时，输出“不及格”；当60X70时，输出“及格”；当70X80时，输出“中”；当80X90时，输出“良”；当90X100时，输出“优”。(A)SelectcaseX(B)SelectcaseXCase0X60Case0to59Print“不及格”Print“不及格”C

29、ase60X70Case60to69Print“及格”Print“及格”Case70X80Case70to79Print“中”Print“中”Case80X90Case80to89Print“良”Print“良”Case90X100Case90to100Print“优”Print“优”CaseelseCaseelsePrint“不在转换范围内”Print“不在转换范围内”EndSelectEndSelect(C)SelectcaseX(D)SelectcaseXCaseis60Caseis=100Print“不及格”Print“优秀”Caseis70Caseis90Print“及格”Print

30、“良好”Caseis80Caseis80Print“中”Print“中”Caseis90Caseis70Print“良”Print“合格”Caseis100Caseis60Print“优”Print“不及格”CaseelseCaseelsePrint“不在转换范围内”Print“不在转换范围内”EndSelectEndSelect6、下面关于fornext循环的叙述中，不正确的说法是（）。(A)省略步长，系统默认为：步长是1(B)循环变量必须是数值型(C)循环体内必须有ExitFor语句(D)如果初值大于终值，不能省略step步长，否则循环只能执行一次。7、下面哪个程序不能正确显示1！，2！，

31、3！，4！的值（）。（A）fori=1to4（B）fori=1to4n=1forj=1toiforj=1toIn=1n=n*jn=n*jnextjnextjprintnprintnnextinexti（C）n=1（D）n=1:j=1forj=1to4dowhilej5n=n*jn=n*jprintnprintn:j=j+1nextjloop8、下列循环能正常结束的是（）。（A）i=5（B）i=1dodoi=i+1i=i+2loopuntili0i=i+1i=i+2loopuntili0loop9、下列if语句中，语法不正确的是（）。(A)ifx1thenprintx(B)ifx+13thenp

32、rintxelseprint“error”endif(C)ifx1then(D)ifx2thenprintxy=x+1ifx2theny=x+1endifendif10、下面程序运行时会出现（）错误。Dimk%，I%k=1Fori=1To10k=k*iNextiPrintk（A）溢出（B）循环缺少step（C）变量I定义时大写，使用时小写二、填空题1、x=5，y=12，那么iif(xy,x,y)=()2、要使FORk=（）to-5STEP-2语句循环20次，k的初值应是多少？3、I=5，则choose(I,”+”,”-”,”*”,”/”)=（）。4、一条语句要在下一行继续写，用（）符号分隔。三

33、、写出程序运行结果1、X=Int(Rnd)+3Ifx28theny=x2+1Ifx2=9theny=x2-2Ifx28theny=x3Printy2、dimI%,S%s=0forI=1to5step-1s=s+inextIprint“s=”;s3、dimI%,S%s=0forI=5to1s=s+inextIprint“s=”;s4、DimI%,n%n=0ForI=1To20Step2I=I+2n=n+1NextIPrint“循环执行次数=”;n,“退出循环时，循环控制变量的值=”；I5、DimI%,J%FORI=1TO5PrintSpc(I)；FORJ=ITO5Print“”；NEXTJPri

34、ntNEXTI6、dima%,b%,I%,j%,s$b=10:a=3forI=btoastep-2b=a+ba=a+bs=”*”forj=btoastep-1s=s&“*”print“在J循环内打印的内容是：”;snextjprint“在I循环内打印的内容是：”;snexti四、程序填空1、下面的程序段是检查输入的算术表达式中园括号是否配对，并显示响应的结果。本程序在文本框中输入表达式，边输入，边统计，以输入回车符作为表达式输入结束。然后显示结果。Dimcount1%在窗体的通用声明中定义PrivateSubText1_KeyPress(KeyAsciiAsInteger)If_=”(”The

35、ncount1=count1+1elseif_=”)”Then_EndIfIfKeyAscii=13ThenIf_ThenPrint“左右括号配对”Elseif_ThenPrint“左括号多于右括号”；count1；”个”ElsePrint“右括号多于左括号”；-count1；”个”EndifEndifEndSub2、输入若干字符，统计有多少个元音字母、多少个其他字母，直到按回车键结束，并显示结果，不区分字母的大小写。变量countX存放元音字母个数，变量countY存放其他字母个数。DimCountX%,CountY%在窗体的通用声明中定义PrivateSubText1_KeyPress(K

36、eyAsciiAsInteger)DimST$ST=_If“A”=STAndST=”Z”ThenSelectCase_Case_CountX=CountX+1Case_CountY=CountY+1EndSelectEndIfIf_ThenPrint“元音字母有”；CountX；”个”Print“其他字母有”；CountY；”个”EndIfEndSub3、下面是一个求100以内的素数的程序。每行输出5个素数。DimI%,j%,m%,pdasBooleanForI=2to100Pd=trueForj=2toI-1IfImodj=0thenPd=_ExitforEndifNextjIfpdthen

37、_M=M+1IfMmod5=0then_EndifEndifNextI4、下面是一个将输入的字符串以相反顺序打印出来的程序。例如：输入：”asdfgh”输出：”hgfdsa”dimst1$,st2$,n%,I%st1=inputbox$(“请输入字符串st1：”)n=_st2=_fori=nto1step-1st2=_+mid(st1,I,1)nextiprintst25、下面是一个计算S=1+（1+2）+（1+2+3）+(1+2+n)的程序，程序运行时，用户输入n的值，程序便可计算出S的值并显示出来。请在程序中的下划线处填上适当的语句，使程序完整。DimI%,J%,n%,T!,S!n=val

38、(inputbox(“请输入n的值”)T=0_ForI=1tonT=T+I_NextIPrint“S=”;S6、下面是一个用辗转相除法求两个正整数A，B的最大公因数的程序，请在下划线处填上正确的语句。DimA%,B%,R%,A=Val(InputBox(“请输入A=”)_ifA=97AndAsc(st)=122Thena(Asc(st)-96)=_+1EndIfNextiText2=“”Fori=1To26Text2=_NextiEndSub7、下面程序的功能是：找出被3、5、7除，余数为1的最小的5个整数。DimCountN%,N%CountN=0N=1DoN=N+1IfNmod3=1and

39、Nmod5=1andNmod7=1thenPrintNCountN=CountN+1EndifLoop_五、程序设计1、设计一程序，用户输入三角形的三条边A，B，C的长度，然后程序判断它们能否构成三角形。如果能构成三角形，则计算出面积并输出，然后程序结束；如果不能构成三角形，则提示用户：不能构成三角形并转回重新输入。计算面积的公式为：面积=SKIPIF10，L=(A+B+C)/22、写一个程序打印出所有的“水仙花数”。水仙花数是指三位的正整数，其各位数字的立方之和等于该正整数本身。例如：407=4*4*4+0*0*0+7*7*7。3、设计程序计算Cosx=1-SKIPIF10+(-1)SKIP

40、IF10SKIPIF10+(n=0、1、2),要求用户输入x值及精度值后，程序计算出Cosx且误差小于精度值。六、实验题实验一1、题目编写一个求圆的周长和面积的程序，初始界面如：图一所示。当用户点击“开始”按钮时，打开如：图二所示的对话框，当用户输入圆的半径并按其上的“确定”按钮（或打“回车”键）后，程序计算出周长和面积并出现如：图三所示的画面。图一图二图三2、实验目的学习掌握利用inputbox$()函数来为变量赋值。学习控件的隐藏与显现技术的应用。进一步掌握程序控制逻辑。3、实验步骤界面设计对象名对象类型属性设置用途Form1窗体Caption=”第四章实验一”Label1标签Captio

41、n=”计算圆的周长和面积”Text1文本框Visible=FalseCommand1命令按钮Caption=”开始”代码设计PrivateSubCommand1_Click()Dimr!,zc!,mj!Text1.Visible=Falser=Val(InputBox(请输入圆的半径:,输入数据,2.5)zc=2*3.14*rmj=3.14*r2Text1.Visible=TrueText1=Text1=圆的周长=+Str(zc)+vbCrLfText1=Text1+圆的面积=+Str(mj)Command1.SetFocusEndSub4、思考问题为什么程序开始时要隐藏文本框text1。此程

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

43、on=”用户名”提示用户Label2标签Caption=”密码”提示用户Text1文本框接收用户输入Text2文本框PasswordChar=”*”接收用户输入Command1命令按钮Caption=”开始”验证用户名及密码代码设计PrivateSubCommand1_Click()IfTrim(Text1)=studentAndTrim(Text2)=123456ThenUnloadForm1Form2.ShowElseMsgBox用户名或密码错误Text1=Text2=Text1.SetFocusEndIfEndSubPrivateSubText1_KeyPress(KeyAsciiAsI

44、nteger)IfKeyAscii=13ThenText2=Text2.SetFocusEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub向工程添加并设计窗体form2打开“工程”菜单，点选“添加窗体”命令，出现的如下对话框：如果要添加一个“新建”窗体则直接按“打开”按钮即可；如果要添加一个原来已经建立好的窗体则点击“现存”选项卡，在打开的对话框中选择你要的窗体。界面设计与实验一基本相同代码设计PrivateSubCommand1_Click()D

45、imr!,zc!,mj!,st$Label1.Visible=FalseText1.Visible=Falsel1:st=Val(InputBox(请输入圆的半径:,输入数据,2.5)IfNotIsNumeric(st)ThenMsgBox半径必须是数字GoTol1Elser=Val(st)EndIfzc=2*3.14*rmj=3.14*r2Label1.Visible=TrueText1.Visible=TrueText1=Text1=圆的周长=+Str(zc)+vbCrLfText1=Text1+圆的面积=+Str(mj)Command1.SetFocusEndSub4、思考问题验证用户名

46、和密码时，直接将用户名=”student”，密码=“123456”写在程序中，有什么缺点？在窗体Form2的命令按钮command1的Click事件过程中，有如下一段代码：L1:st=Val(InputBox(请输入圆的半径:,输入数据,2.5)IfNotIsNumeric(st)ThenMsgBox半径必须是数字GoToL1Elser=Val(st)EndIf它的作用是什么？实验三1、题目编写一个程序，计算函数sin(x)=x-SKIPIF10+(-1)SKIPIF10SKIPIF1=0.00001e=e+p*ti=i+1n=(2*i-1)*(2*i-2)*ns=s*x*xt=s/nIfiM

47、od2=0Thenp=-1Elsep=1EndIfLoopText1=eText2=Sin(x)EndSub4、思考问题本程序采用的算法存在一个严重的问题：程序采用的方法是先计算出x2n-1和(2n-1)!，然后再计算SKIPIF10。当n很大时，x2n-1和(2n-1)!都会超界，但SKIPIF10并不会超界。你认为该如何修改此算法，使计算能够继续进行。本程序中，变量pd的作用是什么？第五章练习题一、单项选择题1、下面关于静态数组下标的叙述中，不正确的是（）。(A)下标必须是常数，不能是变量或表达式(B)下标下界最小为：-32768，下标上界最大为：32767(C)省略下界，一般系统默认为：

48、下界是0(D)下标可以是字符型2、下面声明数组的语句中，正确的是（）。Dima3,4asintegerDima(1to3,4)asintegerDima(m,n)asintegerDima(3、4)asinteger3、DimA(-2to1,2)语句定义的分量个数是（）。（A）2（B）4（C）9（D）124、下面关于动态数组的叙述中，不正确的说法是（）。（A）要使用动态数组，首先用Dim数组名（）声明，使用时必须用ReDim语句重定义数组的维数、下标的个数，但不能重定义数组的类型。（B）用ReDim语句对数组重定义时，下标不能为常量。（C）用ReDim语句对数组重定义时，下标可以是常量或有固定

49、值的变量。（D）可以多次使用ReDim语句来改变数组的大小，每次使用ReDim语句都会使原来数组中的值丢失。5、下面错误的程序段是（）。(A)Dima(5)Asinteger(B)Dima(5)Asintegerfori=1to5DimS$a(i)=Ia(1)=”a”nextIa(2)=”b”a(i)=10(C)Dima()Asinteger(D)Dima(5)AsintegerRedima(5)assinglefori=0toUbound(a)a(1)=4.5a(i)=2*i+1nexti二、填空题1、设dima(10，5)，则Lbound(a)=_，Ubound(a,1)=_。2、设a=A

50、rray(1,2,3,4,5)，则a(3)=_。3、设dima%(5),b$(5)，则操作a=b的结果是_。三、写出程序运行结果1、Dimm%,n%,a%(4,4)Form=1To3Forn=1To3a(m,n)=m+nNextnNextmForn=1to3a(4,n)=0form=1to3a(4,n)=a(4,n)+a(m,n)nextmNextnForm=1To4Forn=1To3Printa(m,n),NextnPrintNextm2、Dims(1To4,1To4)AsStringDimi%,j%Fori=1To4s(i,i)=Chr(65)Forj=1Toi-1s(i,j)=s(j,i

51、)NextjForj=i+1To4s(i,j)=Chr(65+j-i)NextjNextiFori=1To4Forj=1To4Prints(i,j);NextjPrintNexti3、Dima%(3,3),b%(3,3),i%,j%Fori=0To3Forj=0To3a(i,j)=2*i+jb(j,i)=a(i,j)NextjNextiText1=Fori=0To3Forj=0To3Text1=Text1+Str(b(i,j)+NextjText1=Text1+vbCrLfNexti四、程序填空1、下面是一个对数组排序的程序，请在划线处添上适当的语句。dima(6)asintegerdimi%

52、,j%,k%,t%a=Array(8,6,9,3,2,7)fori=1to5_forj=i+1to6ifa(k)a(j)thenk=jendifnextjif_thent=a(k):a(k)=a(i):a(i)=kendifnexti2、下面是一个做矩阵转置的程序，如下图所示，请在划线处添上适当的语句。Dima%(3,3),b%(3,3),i%,j%Text1=Fori=0ToForj=0To3a(i,j)=2*i+jb(j,i)=Text1=Text1+Str(a(i,j)+NextjText1=Text1+vbCrLfNextiText2=Fori=0To3Forj=0To3Text2=T

53、ext2+Str(b(i,j)+NextjText2=Text2+vbCrLfNexti3、下面是一个统计文章中字母AZ（不分大小写）出现的次数的程序。文本框text1中存放一篇英文文章，文本框text2用来显示统计结果。请在划线处添上适当的语句。Dimzms(1To26)AsInteger此数组用来存放字母AZ出现的次数，zms(1)存放A或aDimn%,i%,k%,st$出现的次数，依此类推。Fori=1To26zms(i)=0Nextin=_Fori=1Tonst=Mid(Text1,i,1)Ifa=stAndst=zOrA=stAndst=ZThenst=UCase(st)k=_zms

54、(k-64)=zms(k-64)+1EndIfNextiText2=Fori=1To26Text2=Text2+Chr(64+i)+个数=+Str(zms(i)+vbCrLfNexti五、实验题实验一1、题目编写一个大奖赛计分程序。程序开始时，画面如（图一）所示。当用户点击“设置”按钮后，开始输入评委人数、比赛选手人数，输完后激活“开始”按钮。当用户点击“开始”按钮后，开始输入各评委给第一个选手的打分，输完后计算最后得分，并出现如（图二）所示的画面。当用户点击“继续”按钮后，开始输入各评委给下一位选手的打分，直到所有的选手都赛完。最后出现如（图三）所示的画面。图一图二图三2、实验目的学习、掌握

55、一维数组的使用。学习控件的隐藏与显现。了解在窗体的“通用”，“声明”中所定义的变量的用途。动态数组的应用。输出数据的格式控制。3、实验步骤界面设计对象名称对象类型属性设置对象容器用途Form1窗体Caption=”第五章实验一”屏幕程序界面Label1标签Caption=”大奖赛计分程序”Form1说明程序用途Picture1图片框Form1盛放其它控件Text1文本框MutiLine=TrueScrollBars=3Locked=TruePicture1显示全部选手的比赛成绩Command1命令按钮Caption=”设置”Picture1设置评委及选手的人数并初始化一些变量Command2命

56、令按钮Caption=”开始”Enabled=FalsePicture1录入选手的得分并计算最后得分及显示结果Picture2图片框Visible=FalseForm1盛放其它控件Label2标签Caption=”第X名选手”Picture2提示Text2文本框MutiLine=TrueScrollBars=3Locked=TruePicture2显示单个选手的比赛成绩Command3命令按钮Caption=”继续”Picture2控制是否进行下一个选手的比赛代码设计在窗体的“通用”“声明”中，输入定义如下变量：Dimpwrs%,xsrs%,psh%Dimpwdf()AsSingle变量用途说

57、明如下：pwrs%：记录评委人数，xsrs%：记录选手人数，psh%：记录这是第几个比赛选手。Pwrs()：用来存放各评委对选手的打分，Pwrs(0)存放该选手的号码，Pwrs(pwrs+1)存放选手的最后得分。PrivateSubCommand1_Click()Dimi%pwrs=Val(InputBox(请输入评委的人数,4)xsrs=Val(InputBox(请输入选手的人数,4)ReDimpwdf(pwrs+1)Command2.Enabled=TrueCommand2.SetFocuspsh=0Text1=比赛总成绩+vbCrLfText1=Text1+选手号Fori=1Topwrs

58、Text1=Text1+评委+Str(i)+NextiText1=Text1+得分+vbCrLfEndSubPrivateSubCommand2_Click()Dimi%,sum!,aver!,max!,min!psh=psh+1Picture1.Visible=FalsePicture2.Visible=TrueLabel2.Caption=第+Str(psh)+名选手Text2=比赛成绩+vbCrLfFori=1TopwrsText2=Text2+评委+Str(i)+NextiText2=Text2+vbCrLfsum=0:min=101:max=-1pwdf(0)=Val(InputBo

59、x(请输入比赛选手的号码，比赛号是三位数字,输入数据)Text1=Text1+Format(Str(pwdf(0),)+Fori=1TopwrsL1:pwdf(i)=Val(InputBox(请输入第+Str(i)+个评委的打分+分数必须在50-100之间,输入数据)Ifpwdf(i)100ThenMsgBox分数错误GoToL1EndIfsum=sum+pwdf(i)Ifpwdf(i)maxThenmax=pwdf(i)EndIfIfpwdf(i)minThenmin=pwdf(i)EndIfText1=Text1+Format(Str(pwdf(i),)+Text2=Text2+Forma

60、t(Str(pwdf(i),)+Nextisum=sum-max-minaver=sum/(pwrs-2)pwdf(pwrs+1)=averText1=Text1+Str(pwdf(pwrs+1)+vbCrLfText2=Text2+vbCrLfText2=Text2+选手最后得分是：+Str(pwdf(pwrs+1)+vbCrLfCommand3.SetFocusEndSubPrivateSubCommand3_Click()IfpshxsrsThenCommand2_ClickElsePicture2.Visible=FalsePicture1.Visible=TrueEndIfEndSu