VB模拟系统上机练习总结2.docx

1、VB模拟系统上机练习总结21, ! 表示的是否定；: 表示的是并行符号。2, 焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。3,如果不指明函数过程参数的类型，函数类型默认为Variant类型 。在函数过程中，过程的返回值只有一个。一般数组通过传址方式进行传递。 4,Select Case语句中的测试表达式只能是数值表达式或字符串表达式。当执行第一次循环时i的值为i=i+3，所以i的值增加3；当

2、执行第二次循环时，在For i=0 To 50语句中i的值增加1，而在i=i+3语句中i的值增加3，所以在第二次循环时i的值增加4；以后每次循环i的值都增加4，当i10时循环退出，故循环只能被执行3次，则n值为3。5, Image控件：Stretch属性：返回/设置一个值，决定是否调整图形的大小以适应图像控件。Appearance属性：返回/设置一个对象在运行时是否以3D效果显示。图像框控件无Autosize（调整图像大小适应图片框）和AutoRedraw属性。6,将数据写入顺序文件的语句为：Write #filenumber, outputlist或者Print #filenumber, o

3、utputlist7,设有以下的循环：x=1Do x=x+2 Print xLoop Until _要求程序运行时执行3次循环体，请填空。 DoLoop Until是先执行循环体，再判断条件表达式，如果表达式的值为True，则执行Loop下面的语句，如果为False，则继续执行循环体。本题中执行第一次循环后变量x的值为3，执行第二次循环后变量x的值为5，执行第三次循环后变量x的值为7，这时要结束循环，表达式的值要为True，因此表达式的值要当变量x的值为5时为False，继续执行循环体，大于5小于7时为True，结束循环，因此变量x的判断条件要介于5和7之间，即x5或x6或x=6或x=7或x=

4、7。9,在窗体上画一个名为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click( ) Dim i As Integer Sum=0 n=InputBox(Enter a number) n=Val(n) For i=1 To n Sum=_sum+fun(i)_ Next i Print SumEnd SubFunction fun(t As Integer) As Long p=1 For i=1 To t p=p*i Next i _fun=p_ End Function以上程序的功能是，计算1!+2!+3!+.+n!，其中n从键盘输入，请填空

5、。题目要求计算1!+2!+3!+n!，其中求每一项的阶乘可以通过调用函数fun来完成。先定义一个变量i为整型数据，作为循环控制变量，并给Sum变量赋初值，初值为0。由用户输入一个数值赋给变量n，并将变量n的数据类型转换为数值型。循环变量i从1到n之间发生变化，函数fun利用主程序传递过来的参数，最后要求返回该过程计算的值，变量p用来存放n!，所以最后应该返回变量p的值给调用过程，Function过程通过过程名=表达式把值赋给过程名，所以Function fun中缺少过程返回值语句，应该填写fun=p，表示过程返回变量p的值。要累计每一项的阶乘的和，因此主程序中缺少累计各项阶乘的的语句，每计算一

6、项阶乘，就将它的值累加给变量Sum，所以Sum变量作为一个累计数，在表达式中既要累计和，又要调用函数的命令，即sum+fun(i)。10,下列程序段的执行结果为_。 N = 0 For I = 1 To 3 For J = 5 To 1 Step -1 N = N + 1Print N; J; IFor-Next循环语句跟踪程序：外循环执行3次，内循环执行5次，循环体N=N+1一共执行了3*5=15次，故N的值应当为15。值得注意的是：For循环的控制变量，在每次循环体执行完之后，会自动加循环步长值，直到这个值超出循环语句指定的范围，循环结束。由此可见，循环结束后，I的值应当为3+1=4，J的

7、值应当为1+(-1)=0 15 0 411,在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为窗体移动到距屏幕左边界、上边界各500的位置12,List控件中ListIndex属性表示当前选中项目的索引，Text属性表示当前选中项目的内容，RemoveItem方法表示删除列表项； 13,控件数组的特点：控件数组由一组相同类型的控件组成；这些控件具有相同的名称；数组中的每个控件都有惟一的索引号，即下标，下标值由Index属性指定，通过索引值来区

8、别控件数组中的元素15,在窗体上从左到右有Text1、Text2两个文本框（见图），要求运行程序时在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框分数错。下面程序中正确的是_。Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a=0 And a=0 And a Form1.Width Then Label1.Left = -Label1.Width Else La

9、bel1.Left = Label1.Left + 100 End IfEnd Sub28，32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组 Mat 中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线 上的数据， 1、Open语句Open语句用来打开或建立一个文件，其语法为：Open 文件名 for 存取方式 Access 操作方式 锁定 As #文件号 Len=记录长度参数说明：“存取方式”指文件的输

10、入输出方式，可以是以下操作之一：Output 指定顺序输出方式Input 指定顺序输入方式Append 指定顺序输出方式,与Output不同的是，用Append方式打开文件时，文件指针定位于文件尾部，如对文件执行写操作，则写入数据附加到原来文件的后面。Random 随机存取方式，也是默认存取方式。Binary 指定二进制方式文件。在这种方式下，可以用Get和Put语句对文件中任意字节位置的信息进行读写。“操作方式”用来指定访问文件类型，可以是下列类型之一：Read 打开只读文件Write 打开只写文件Read Write 打开读写文件“锁定”用来限制其他用户或进程对打开的文件进行读写操作。锁定

11、类型包括：Lock Shared 允许机器上任何进程读写该文件Lock Read 不允许其他进程读该文件Lock Write 不允许其他进程写该文件Lock Read Write 不允许其他进程读写该文件“文件号”是1到511之间的某个整数，对打开文件的各种操作要靠文件号来与文件发生关系。“记录长度”对于随机方式打开的文件，指记录长度；对于顺序文件，指缓冲字符数。2、Input #语句用来读取顺序文件的数据。语法为：Input #文件号，变量列表3、Print #语句用来把数据写入顺序文件。语法为：Print #文件号，Spc（n)|Tab（n) 表达式列表 ;|,Spc（n)函数用来在当前的

12、输出位置加入n个空白；Tab（n)函数用来设置在第n个位置写入数据。分号表示后续写入的数据将接着当前的数据尾部写入；逗号表示在当前写入的数据后换行。4、Close语句 用来关闭一个被打开的文件。语法为：Close #文件号解题方法：打开sjt5.vbp中的Form1窗体，打开代码窗口，修改后的代码如下：Option Base 1Private Sub Form_Click() Const N = 5 Const M = 5 Dim Mat(M, N) Dim i, j Open App.Path & & datain.txt For Input As #1 For i = 1 To N For j = 1 To M Input #1, Mat(i, j) Next j Next i Close #1 Print Print 初始矩阵为： Print For i = 1 To N For j = 1 To M Print Tab(5 * j); Mat(i, j); Next j Print Next i Print Print 左上 - 右下对角线上的数为： For i = 1 To N For j = 1 To M If i = j Then Print Tab(5 * j); Mat(i, j); Next j Next iEnd Sub