上海应用技术学院2009—2010学年第一学期
《程序设计基础VB.Net》期末（A）试卷
课程代码: B1040031 学分: 3 考试时间: 100 分钟 班级： 学号： 姓名:
课程序号: 6514 6515 6516 6518 6520 6523 6525 6528 6530 6531 6532 6718 6721 6722 6951 7640
一. 选择题（1'*20=20'）
1. VB的启动有多种方法，下面不能启动VB的是（ ）。
A. 使用“开始”菜单中的“程序”命令。
B. 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字。 C. 使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹。 D. 先打开VB的“文件”菜单，再按Ctrl+Q组合键。
2. 关键字（ ）声明的变量在整个应用程序范围内有效。D
A.Dim
B.Static
C.Private
D.Public
3. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。C
A.工程资源管理器窗口 C.代码窗口
B.工具箱窗口 D.属性窗口
4. Dim a(10) As Integer，数组a共有（ ）个元素。C
A.10
B.9
C.11
D.12
5. 用于获得字符串S从第2个字符开始的3个字符的函数是（ ）。A
A.Mid$（S，2，3） C.Right$（S，2，3）
B.Middle（S，2，3） D.Left$（S，2，3）
6. 计算结果为0的表达式是（ ）。D
A.Int（2.4）+Int（－2.8） C.Fix（2.4）+Int（－2.8）
B.Cint（2.4）+Cint（－2.8） D.Fix（2.4）+Fix（－2.8）
7. 下面控件中，没有Text属性的是（ ）。D
A.框架GruopBox
B.列表框ListBox C.复选框CheckBox D.定时器Timer
8. 滚动条控件的LargeChange属性所设置的是（ ）。C
A. 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量。 B. 滚动条中滚动块的最大移动位置。
第 1 页
C. 滚动条中滚动块的最大移动范围。 D. 滚动条控件无该属性
9. 设置一个单选按钮（RadioButton）所代表选项的选中状态，应当在属性窗口中改变的
属性是（ ）。A A.Checked
B.Name
C.Text
D.Value
10. 要清除列表框中的所有列表项时，应使用（ ）方法。B
A.Items.Remove
B.Items.Clear
C.Items.RemoveAT
D.Items.Move
11. 下面程序段求两个数中的大数，（ ）不正确。D
A.Max=iif(x>y,x,y)
B.if x>y then Max=x else Max=y D.Max=x
C.If y>=x then Max=y
12. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（ ） 。B
A.Sub f2(Byval n%, Byval m%) C.Sub f1(n%, ByRef m%)
B.Sub f1(ByRef n%, ByRef m%) D.Sub f1(Byval n%, m%)
D.Public
13. 关键字（ ）声明的变量在整个应用程序范围内有效。D A.Dim B.Static C.Private 14. 14.函数Int(Rnd*101+1)的取值范围是（ ）。C
A.[1,100]
B.[1,101]
C.[0,101]
D.[1,102]
15. 设a=”Visual Basic.net”，下面使b=”Basic”的语句是（ ）。B
A.b=Left(a,8,12)
B.b=Mid(a,8,5) D.b=”Left(a,8,5)
C.b=Right(a,8,5)
16. 要使For语句循环执行20 次，循环变量的初值应当为（ ）。B
For k= to –5 step –2 A.35
B.33
C.32
D.45
17. 以下关于函数过程的叙述中，错误的是（ ）。B
A. 函数过程形参的类型与函数返回值的类型没有关系。 B. 在函数过程中，过程的返回值可以有多个。
C. 当数组作为函数过程的参数时，只能以传值方式传递。
D. 如果不指明函数过程参数的类型，并不表示参数没有数据类型。 18. 加载窗体时触发的事件是（ ）。B
A.Click
B.Load
C.Gotfocus
D.DoubleClick
19. 改变窗体的标题，需修改窗体的（ ）属性 。A
A.Text
B.Name
第 2 页
C.Title D.Index
20. 如果将布尔常量False赋值给一个整形变量，则整形变量的值为（ ）。A
A.0
B.-1
C.True
D.False
二. 综合题(5'*4=20')
1. 如果要时钟控件每半分钟发生一个Timer事件，则Interval属性应设置为多少？
30*1000 Interval以毫秒计算。
2. 工程中有Form1窗体。程序运行时，在Form1中名称为Textbox1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Button1），则根据输入的圆的半径计算圆的面积，并在Textbox1的文本框中显示出来，如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。 Private Sub Button1_Click(ByVal sender System.EventArgs) Handles Button1.Click
If Textbox1.Text=”” Then MsgBox “请输入半径！”
Else If Not IsNumeric（ val(text1box.text) ）Then MsgBox “请输入数值数据！” Else
r=val(text1box.text)
textbox1.text=“圆的面积是”&3.14*（ r * r ） End If End Sub
3. 如何使文本框TextBox1得到焦点?
As
System.Object,
ByVal
e
As
text box1.focus
4. VB.NET提供了结构化程序设计的三种基本结构，请问是哪三种基本结构？
顺序、循环、选择
三. 读程序写结果(5*4=20')
1. 在窗体中添加一个命令按钮Button1，并编写如下程序：
Private Sub Button1_Click(ByVal sender As System.Object, System.EventArgs) Handles Button1.Click
第 3 页
ByVal e As
Dim x%, y%
x = InputBox(x)
If x ^ 2 = 9 Then y = x If x ^ 2 = 9 Then y = 1 / x If x ^ 2 = 9 Then y = x ^ 2 + 1 MsgBox(y) End Sub
程序运行后，在InputBox中输入3，单击命令按钮，程序的运行结果？
10
2. 在窗体中添加一个命令按钮，名称为Button1，两个文本框名称分别为Textbox1、Textbox2，然后编写如下程序：
Private Sub Button1_Click(ByVal sender System.EventArgs) Handles Button1.Click Dim a$, b$, C$, D$ a = TextBox1.Text b = TextBox2.Text C = LCase(a) D = UCase(b)
Button1.Text = C + D End Sub
程序运行后，在文本框Textbox1、Textbox2中分别输入AbC和Efg，变量C和D的结果分别是？
As
System.Object,
ByVal
e
As
c=abc D=EFG (LCase代表小写、UCase代表大写)
3. 在窗体中添加一个命令按钮，名称为Button1，然后编写如下程序： Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs) Handles Button1.Click
Dim a(5) As Integer, b(5) As Integer, j% For j = 1 To 4 a(j) = 3 * j b(j) = a(j) * 3 Next j
TextBox1.Text = b(j - 2) End Sub
程序运行后，单击命令按钮，在文本框中显示？
Next j =5 所以3*3*3=27
第 4 页
相关推荐：
loading