沈阳工业大学2011年11月vb选修课作业

1、 在 VB 中窗体和控件统称为对象，是程序可以控制的实体，什么是对象的属性、事件及方法，举例说明。答：text1.text 是文本框的 text 属性;命令按钮 Command_Click 的单击事件;Form1.show 是一个方法，作用是显示窗体 Form12、 VB 中有五类表达式，都是哪几类，各有哪些运算符， 优先级如何定义答：表达式只找到 4 类，分别是算术表达式，它的运算符有,/,Mod;关系表达式，它的运算符有 Is,Like;连接表达式，它的运算符有逻辑表达式，它的运算符有 And,Eqv,Imp,Not,Or ,Xor.优先级（从高到低）：算术运算符，字符串连接运算符，关系运算符，逻辑运算符。3、 在 VB 中，使用对象的 Print 方法输出数据，有哪些具体形式。答：（1）Format(表达式，,格式串) 函数。Format 函数根据格式串，显示表达式的文本。（2）Spc(n) 函数。Spc 函数是在显示输出下一个表达式之前插入 n 个空白。（3）Tab(n) 函数。Tab 函数是将光标移动到第 n 列。4、在 VB 中循环语句有哪几种？举出 3 种以上。并以“从 1 到 100，100 个数求和的问题”编写代码进行说明答：1.当型循环 Do While Dim i as Integer,Sum As IntegerSum=0:i=1Do While i=100Sum=Sum+1i=i+1Loop2.直到型循环 WhileDim i as Integer,Sum As IntegerSum=0:i=1DoSum=Sum+1i=i+1Loop While i=1003.For 循环Dim i as Integer,Sum As IntegerSum=0For i=1 To 100Sum=Sum+iNext i5、 VB 应用程序是由过程组成的。两大类过程分别是什么，有何区别？答：Sub 过程和 Function 过程。区别是 Function 过程可以返回一个值到调用的过程，而 Sub 过程做不到。6、 VB 可以处理哪三种类型的数据文件，有何不同？答：顺序文件，随机文件，二进制文件。顺序文件是一系列的 ASCII 码格式的文本行，数据按顺序排列存放，与文档中出现的顺序相同。每行的长度可以变化，是最简单的文件结构，任何文本编辑器都可读/写这种文件。 随机文件是以随机方式存取的文件，由一组长度相等的记录组成。记录长度为固定长度，使用前每个字段所占字节必须事先定好。每个记录都有一个记录号，随机文件打开后，既可读又可写，可以根据记录号访问文件中的任何一个记录，不需要像顺序文件那样按顺序进行。 二进制文件存取可以获取任何一个文件的原始字节。任何类型的文件都可以用二进制访问的方式打开。二进制存取方式与随机存取方式的不同在于：二进制存取方式可以定位到文件的任何字节位置，即定位到字符;二进制存取从文件中读出数据或向文件中写入数据的长度取决于 Get#语句或 Put#语句中变量的长度;二进制访问中的 Open 语句没有指定记录长度，即使指定记录长度也被忽略。编程题1 从文件“C：数据.txt”中读出 15 个整数，求出这 15 个数的最小数、和数，将这 15 数、最小数、和数分别显示出来。界面自己设计（要求画出设计界面和运行界面）编写相应的程序。Dim a(14) As IntegerPrivate Sub Command1_Click()Dim i As Integeri = 0For i = 0 To 2j = i + 1a(i) = InputBox(“输入第“ Spc(2);Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, s As Integers = a(0)j = a(0)For i = 1 To 2s = s + a(i)If a(i) j Thenj = a(i)End IfNext iText1.Text = jText2.Text = sEnd Sub2 勾股定理中 3 个数的关系是：a 2+b2=c2。编写程序，输出 20 以内满足上述关系的整数组合，计算出共有几组这样的组合， （去掉重复的组合数，例如：3、4、5 和 4、3、5 就是重复的组合数保留一组就可以了。 ）并计算出每一组合的面积分别为多少？程序的运行界面如图所示。Private Sub Command1_Click()Print “a“; Tab(10); “b“; Tab(20); “c“; Tab(30); “面积“Dim a, b, c, d, m As Integerm = 0For a = 1 To 20For b = a + 1 To 20For c = a + 2 To 20If a * a + b * b = c * c Thenm = m + 1d = a * b / 2Print a; Tab(10); b; Tab(20); c; Tab(30); dEnd IfNext cNext bNext aPrint “共“; m; “组“End Sub3 从键盘上输入一个学生的学号、姓名和三门课的成绩，然后输出该学生的学号、姓名，并根据三门课的平均成绩按下面的规定输出对该学生的评语：平均成绩：85100 7084 6069 4059 039评语： 优秀 良好 中等 差 很差界面自己设计（画出设计界面和运行界面） ，写出相应的程序代码。Private Sub Command1_Click()Dim a, b, c As IntegerDim d As SingleDim q As Stringa = Val(Text3.Text)b = Val(Text4.Text)c = Val(Text5.Text)d = (a + b + c) / 3Select Case dCase 85 To 100q = “优秀“Case 70 To 84q = “良好“Case 60 To 69q = “中等“Case 40 To 59q = “差“Case 0 To 30q = “很差“End SelectLabel6.Caption = “学号 “ “!+“; b; “!+“; c; “!=“;