第9章 实验文档格式.docx

1、Command1结束Command2移动Label1Visual Basic（3）参考代码如下：Private Sub Command1_Click（） EndEnd SubPrivate Sub Command2_Click（） Label1.Left = Label1.Left + 20 Label1.Top = Label1.Top + 20 Print Visual Basic Print语句为打印方法（4）保存（保存在指定位置，文件名自定）、运行，最后退出Visual Basic环境。2打开上题中的工程文件，对窗体、命令按钮的属性（颜色、字体等）、事件（单击，双击事件代码）进行重新设

2、置，然后保存。自行设置各控件的属性、事件代码。【问题】1根据Visual Basic中设置控件属性的方法，请分别指出程序中哪些是控件的属性、事件和方法。2在Visual Basic环境中如何设置属性窗口、代码窗口、工具箱的隐藏和显示？3保存Visual Basic工程文件时保存几种文件，文件扩展名分别是什么？4写出Visual Basic工程中常用三种工作模式。实验二 运算符和表达式1运算符的分类及其优先级。2函数的分类及其参数的意义。3表达式的转换方法。1掌握运算符的功能及其优先级。2掌握常用函数的使用方法。3掌握表达式书写方法。1在立即窗口中通过“?”和Print命令验证以下几组函数，并分

3、析运行的结果。（）Chr（122），Asc（C）（）Log（10），Exp（2.3）（）Sin（30*3.14/180）（）Val（123.45er6789），abc+Str（123.45）（）Fix（-6.5），Fix（6.5），Int（6.5），Round（6.5），Round（-6.5）（）Lcase$（ABC），Ucase$（）（）Left$（ABCDEFGH,3），Right$（,3），Mid（,3,3），String（,3）（）Ltrim（ Visual Basic的标准函数 Rtrim（ Visual Basic的标准函数 Trim（）Now（），Date（），Time（），Da

4、te（d,2,#2/27/2008#）（）Instr（2, ABCDEDCBABCDE,CD根据条件写一个正确的Visual Basic表达式,并上机验证表达式的正确性。（）随机产生一个AZ范围内的字符。（）随机产生一个0100（包括0和100）范围内的下整数。（）表示a是3或7的倍数。（）取字符变量S中第3个字符起的4个字符。（）计算一下还有多少天你大学毕业。（）表示字符变量b是字符（大小写不区分）。（）表示10c0） Y= 0 （x=0） -1 （x2输入X、Y、Z三个数，然后进行大小比较（窗体运行界面如图9-6-1所示）。Dim X#, Y#, z#X = InputBox（请输入第一个

5、数：Y = InputBox（请输入第二个数：Z = InputBox（请输入第三个数：X=VAL（X）:Y=VAL（Y）:Z=VAL（Z）If X Y ThenA = X :X = Y:Y = AEnd If z ThenA = X:X = Z:Z = AIf Y 24在窗体的Picture控件中，按每行10个数输出1200之间能被7整除的数以及个数，并计算其余数之和。窗体运行界面如图9-8-1所示。Dim i As Integer, j As Integer, s As Integerj = 0For i = 1 To 200 If i Mod 7 = 0 Then j = j + 1 P

6、icture1.Print i; If j Mod 10 = 0 Then Picture1.Print Else s = s + iNext iPicture1.PrintPicture1.Print 1至200之间一共有 j &个数可以被7整除的数1至200之间不能7整除数的和是：; s5显示100到0之间的所有5的倍数之数，要求每行输出5个数字。四、【思考题】1循环语句For的应用特点是什么？2For语句的循环次数如何计算？3在For语句中，循环变量与循环变量初值、终值及步长之间的关系？实验九 条件循环结构1DoLoop条件循环结构语句格式及使用功能。2WhileWend条件循环结构语句

7、格式及使用功能。1掌握条件循环结构Do.Loop语句的应用方法。2掌握条件循环结构WhileWend语句的使用方法。3掌握如何控制循环条件，防止死循环或不循环。1求Fibonacci数列的前20项（Fibonacci数列的前几项为：2求两个数的最大公约数，窗体运行界面如图9-9-1所示。求最大公约数最常用的方法是辗转相除法。其设计思路是：（1）假设m大于n；（2）用n作除数除m，得余数r。（3）若r0，则令mn，nr，继续相除得到新的r值，直到r=0为止。（4）最后的n即为最大公约数。Dim m As Long, n As Long, temp As LongIf （Val（Text1.Tex

8、t） = 0 Or Val（Text2.Text） = 0） Or Val（Text1.Text） 2147483647 Or _Val（Text2.Text） 2147483647 ThenMsgBox 输入的数0或溢出，请重新输入!,vbInformation+vbOKOnly,数据错误Text1.Text = Text2.Text = Text1.SetFocusElse m = Val（Text1.Text）图9-9-1 运行界面n = Val（Text2.Text）If m n Thentemp = m: m = n: n = temp Dor = m Mod nm = nn = r

9、Loop While r 0Label3.Caption = m3使用条件循环结构WhileWend计算如下表达式的值：sinxx-+-+（-1）窗体设计状态和运行界面如图9-8-2和9-8-3所示，窗体运行时，在文本框中输入90，单击计算按钮后，标签Label2中值约等于1.00（即Sin90=1），还可以检测X为0、45、180、270时的值。图9-9-3 运行界面图9-9-2 设计界面x = Val（Text1） * 3.14 / 180t = 1: n = 1: i = 1: sin1 = 0While i = 10 n = n * i t = t * x If i Mod 2 0 T

10、hen sin1 = sin1 + t / n t = t * （-1） End If i = i + 1WendLabel2.Caption = sin14分别用条件循环结构Do While.Loop与Do Until.Loop计算自然数1到100的和。注：分别用当型循环结构和直到型循环结构完成此题设计。1For循环结构与Do WhileLoop循环结构的应用特点？2当型循环结构DoLoop While语句与DoLoop Until语句的异同是什么？3如何控制程序的循环条件，防止死循环或不循环？实验十 循环嵌套结构1预习分支结构与循环结构、循环嵌套的使用方法。1掌握循环嵌套的使用方法。2熟悉

11、分支结构与循环结构的综合运用。1求从1000到1100之间的所有素数（窗体运行界面如图9-10-1所示）。将文本框Text1的MultiLine属性设置为 True。将文本框Text1的ScrollBars属性设置2-Vertical。 a = For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Int（Sqr（n） If n Mod i = 0 Then s = 1 Exit For Next If s = 0 Then a = a & Str（n） & vbCrLf Text1.Text = a2输出九九乘法表，窗体运行界面如图9-10-2、9-10-3、9-10-4所示。图9-10-2参考代码如下： Picture1.ClsFor i = 1 To 9 For j = 1 To 9 y = i &= i * j Picture1.Print Tab（j - 1） * 8 + 1）; y; Next j Picture1.Print图9-10-2 运行界面图9-10-3 运行界面图9-10-4 运行界面3在窗体中打印出如图9-9-5所示图型。图9-10-5 运行界面4在窗体中打印出如图9-10-6所示图型。Pri