《Visual-Basic程序设计》试题及其答案.doc

一、填空题（每题1分，共10分）1.把数学式子：写成VB的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180) ）。2设A=5，B=6，C=7，D=8，表达式32*B OR A=C AND BC OR CD的值是（ True ）。3若Case子句中的表达式表列具有形式： To ，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case子句相应的语句块。4执行下面的程序段后，x的值为（ 12 ）。x=0For i=1 To 8 Step 3x=x+iNext i5在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。6将命令按钮Command1的Caption属性值赋给文本框Text1的Text属性使用的语句为( Text1.Text=Command1.Caption)7复选框的Value属性为（ 1 ）时，表示复选框被选中。 8. 使用滚动条可以获取某一范围内的数值输入。为使垂直滚动条的Value属性值从下往上递增变化，应设置滚动条Min属性值大于( Max )属性值。9语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（ 8 ）。10给定如下子过程： Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（ 0 ）。 二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。A) 对象 B) 属性 C) 事件 D) 方法2.设a=Visual Basic，下面使b的值为Basic的赋值语句正确的是( B )。A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D) b=Left(a,8,5)3设X为整型变量,不能正确表达1 X 5的逻辑表达式是( A )。A) 1 X 5 B) X=2 or X=3 or X=4C) 1X And X 5 D) Not (X=5) 4InputBox函数返回值的类型为( B )。A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型5执行语句：Print 4+56*8/8 Mod 9 输出的值是( A )。A) 4 B) 5 C) 6 D) 76.下列循环语句能正常结束循环的是（ C ）。A)i=5 B) i=1Do Do i=i+1 i=i+2Loop Until i 0 Loop Until i=1 7以下叙述中正确的是 （ A ）。A) 窗体的Name属性指定窗体的名称 ，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变窗体的Name属性的值 D) 窗体的Name属性值可以为空8VB为命令按钮提供的Cancel属性（ A ）。A) 用来指定命令按钮是否为窗体的“取消”按钮 B) 用来指定命令按钮的功能是停止一个程序的运行C) 用来指定命令按钮的功能是关闭一个运行程序D) 用来指定命令按钮的功能是中断一个程序的运行9若使命令按钮失效，要对（ A ）属性设置为False。 A) Enabled B) Visible C) BackColor D)Caption10在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()Text1.Text = abcDEFText2.Text = 123456End Sub程序启动后，单击命令按钮，输出结果为（ C ）A）abcDEF123456 B）abcDEF123C）ABCDEF123 D）ab12345611在运行程序时，要使文本框获得焦点，则需使用（ B ）方法。 A) Change B) SetFocus C) GotFocus D) Move12下列语句中不能把图片框Picture1中的图形清除的是（ A ）。 A) Picture1.Del B) Picture1. Picture=LoadPicture() C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13要删除列表框中的某一个项目，需要使用（ D ）方法。 A) Clear B) ReMove C) Move D) ReMoveItem14在组合框中选择某一项目内容，在程序中可以通过（ D ）属性获得。 A) List B) ListIndexC) ListCount D) Text15若有数组说明语句：Dim a()AS Integer，则a被定义为（B ）。A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数组16有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = 李强.Age = 21.Sex = 男End With执行语句Print Stu.Age后在窗体上显示的结果是（ B ）。A)李强 B)21 C)“男” D)Age17.要使子过程f1调用后能用形式参数返回两个结果，下面子过程定义正确的是( C )。 A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%) End Sub End SubC）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%) End Sub End Sub18.以下叙述中错误的是( D )。A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C) 在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件D) 全局变量必须在标准模块中定义 19从磁盘上打开顺序文件c:t1.txt为读入数据做好准备，如下语句（ A ）是正确的。 A） F=c:t1.txt B）F=c:t1.txtOpen F For Input As #1 Open F For Input As #2C）Open c:t1.txt For Output As #1 D）Open c:t1.txt For Input As #220.以下叙述中正确的是( B )。A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input#语句可以从随机文件中读取数据三、程序阅读题(第1题3分，第2题5分，其余题各4分，共24分)1当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。Private Sub Command1_Click()Dim x%, y%x = InputBox(请输入x的值：)Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is 10y = x * x + 1End SelectPrint x=; x, y=; yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果。Private Sub Command1_Click() Const n = 3 Dim i As Integer, k As Integer For i = 1 To n Print Tab(n - i) * 2 + 1); For k = 1 To i Print Str(k); Next k For k = i - 1 To 1 Step -1 Print Str(k); Next k Print Next i End Sub 1 1 2 1 1 2 3 2 1 3.设在一个窗体（如图所示）中已设置了一个组合框Combo1和文本框Text 1，且有下列程序，试写出事件过程Combo1_Click的功能。Dim str As StringPrivate Sub Form_Load() str = Combo1.AddItem 北京Combo1.AddItem 天津Combo1.AddItem 西安Combo1.AddItem 上海Combo1.AddItem 武汉Combo1.AddItem 广州Combo1.AddItem 海口Combo1.Text = 北京End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & ，Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本框中显示所有选择项目的内容。4. 写出执行下列事件过程的输出结果。Private Sub Form_Click() Dim a(1 To 2, 1 To 2) As Integer Dim i As Integer, j As Integer For i = 1 To 2 For j = 1 To 2 a(i, j) = (2 * i - 1) * 4 + j Next j Next i For i = 1 To 2 Print a(i, 3 - i), a(3 - i, i) Next iEnd Sub 6 13 13 65写出执行下列事件过程的输出结果。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 2 Call f(8, a) Print a=; a, b=; b Call f(a, b) Print a=; a, b=; bEnd SubPrivate Sub f(ByVal x As Integer, y As Integer) x = x + 1 y = y - 1End Sub a=2 b=2 a=2 b=16若有如下窗体模块： Dim a As IntegerPrivate Sub test() Dim b As Integer a = a + 1: b = b + 1 Print Sub: ; a, bEnd SubPrivate Sub Command1_Click() a = 2: b = 3 Call test Call testEnd Sub写出当程序启动并单击命令按钮后，在窗体中显示的结果。Sub： 3 1 Sub： 4 1 四、程序填空题 (每空2分，共22分) 1. 下面事件过程的功能是：输入某个学生某门课程的百分制成绩，并根据成绩输出评语，若0成绩60 时，评语为“差”；若60成绩70时，评语为“通过”；若70成绩80时，评语为“中等”；若80成绩90时，评语为“良好”；若90成绩100时，评语为“优秀”，在横线上填上适当内容。Private Sub Command1_Click() Dim s! s = InputBox(请输入学生的成绩：) If 0=s And s= 90 Print 优秀 Case Is = 80 Print 良好 Case Is = 70 Print 中等 Case Is = 60 Print 通过 (2) Case Else或Is =0 Print 差 End Select End IfEnd Sub2.下面程序的功能是：计算 f=1 -1/(23)+1/(34)-1/(45)+ +1/(1920)的值，在横线上填上适当内容。Private Sub Form_Click() Dim f As Single,i As Integer,sign As Integer （3） sign=-1 f = 1 （4） for i=2 to 19 f = f + sign/(i*(i + 1) （5） sign=sign*(-1) Next i Print f= ; fEnd Sub3.下面窗体模块的功能是：从键盘上输入x，y和z的值，按如下公式求f (x，y，z)的值的程序，在横线上填上适当内容。f(x,y,z)=sin(x)/(sin(x-y)*sin(x-z)+sin(y)/(sin(y-z)*sin(y-x)+sin(z)/(sin(z-x)*sin(z-y)其中x、y和z互不相等。Function f(ByVal a As Single,ByVal b As Single,ByVal c As Single) (6) As Single (7) f=Sin(a)/(Sin(b)* Sin(c) End Function Private Sub Command1_Click() Dim x!, y!, z!, s! x = InputBox(x=) y = InputBox(y=) z = InputBox(z=) If x y And y z And z x Thens=f(x,x-y,x-z)+f(y,y-z,y-x)+ (8) f(z,z-x,z-y) Print s=; s Else Print 数据输入错误！ End IfEnd Sub4.下面事件过程的功能是从学生分数顺序文件D: file1.dat中读取各个学生的分数，并求该班的平均成绩，在横线上填上适当内容。Private Sub command1_Click() Dim n%, score!, s! Open D:file1.dat (9) As #3 For Input n = 0: s = 0 While (10) Not EOF(3) Input #3,score s = s + score n = (11) n+1 Wend Print 平均成绩为：; s / n