上海应用技术学院2010VB练习试卷.doc

上海应用技术学院20092010学年第一学期程序设计基础VB.Net期末（A）试卷一. 选择题（1*20=20）1. VB的启动有多种方法，下面不能启动VB的是（ ）。A. 使用“开始”菜单中的“程序”命令。B. 使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字。C. 使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹。D. 先打开VB的“文件”菜单，再按Ctrl+Q组合键。2. 关键字（ ）声明的变量在整个应用程序范围内有效。A. DimB.StaticC.PrivateD.Public3. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口4. Dim a(10) As Integer，数组a共有（ ）个元素。A.10 B.9 C.11 D.12 5. 用于获得字符串S从第2个字符开始的3个字符的函数是（ ）。A.Mid$（S，2，3） B.Middle（S，2，3）C.Right$（S，2，3） D.Left$（S，2，3） 6. 计算结果为0的表达式是（ ）。A.Int（2.4）+Int（2.8） B.Cint（2.4）+Cint（2.8）C.Fix（2.4）+Int（2.8） D.Fix（2.4）+Fix（2.8） 7. 下面控件中，没有Text属性的是（ ）。A.框架GruopBoxB.列表框ListBoxC.复选框CheckBox D.定时器Timer8. 滚动条控件的LargeChange属性所设置的是（ ）。A. 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量。B. 滚动条中滚动块的最大移动位置。C. 滚动条中滚动块的最大移动范围。D. 滚动条控件无该属性 9. 设置一个单选按钮（RadioButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）。A.CheckedB.NameC.TextD.Value 10. 要清除列表框中的所有列表项时，应使用（ ）方法。 A.Items.RemoveB.Items.ClearC.Items.RemoveATD.Items.Move 11. 下面程序段求两个数中的大数，（ ）不正确。 A.Max=if(xy, x, y) B.if xy then Max=x else Max=y C.If y=x then Max=y D.Max=x12. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（ ） 。 A.Sub f2 (Byval n%, Byval m %)B.Sub f1 (ByRef n%, ByRef m %) C.Sub f1 (n%, ByRef m %)D.Sub f1(Byval n%, m%)13. 关键字（ ）声明的变量在整个应用程序范围内有效。A.Dim B.Static C.PrivateD.Public14. 14.函数Int(Rnd*101+1)的取值范围是（ ）。A.1,100B.1,101C.0,101D.1,10215. 设a=”Visual B”，下面使b=”Basic”的语句是（ ）。A.b=Left(a,8,12)B.b=Mid(a,8,5)C.b=Right(a,8)D.b=Left(a,8)16. 要使For语句循环执行20 次，循环变量的初值应当为（ ）。For k= to 5 step 2A.35B.33C.32D.4517. 以下关于函数过程的叙述中，错误的是（ ）。A. 函数过程形参的类型与函数返回值的类型没有关系。B. 在函数过程中，过程的返回值可以有多个。C. 当数组作为函数过程的参数时，只能以传址方式传递。D. 如果不指明函数过程参数的类型，并不表示参数没有数据类型。18. 加载窗体时触发的事件是（ ）。A.Click B.Load C.Gotfocus D.DoubleClick 19. 改变窗体的标题，需修改窗体的（ ）属性 。A.Text B.Name C.Title D.Index20. 如果将布尔常量False赋值给一个整形变量，则整形变量的值为（ ）。A.0B.-1 C.TrueD.False二. 综合题(5*4=20)1. 如果要时钟控件每半分钟发生一个Timer事件，则Interval属性应设置为多少？30000 2. 工程中有Form1窗体。程序运行时，在Form1中名称为Textbox1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Button1），则根据输入的圆的半径计算圆的面积，并在Textbox1的文本框中显示出来，如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Textbox1.Text=” ThenMsgBox “请输入半径！”Else If Not IsNumeric（textbox1.text）ThenMsgBox “请输入数值数据！”Elser=Val (text1box.text) textbox1.text=“圆的面积是”&3.14*（r*r）End IfEnd Sub3. 如何使文本框TextBox1得到焦点?此题不会，下面答案可信度不高：TextBox1.SetFocus4. VB.NET提供了结构化程序设计的三种基本结构，请问是哪三种基本结构？顺序，条件，循环三. 读程序写结果(5*4=20)1. 在窗体中添加一个命令按钮Button1，并编写如下程序：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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，单击命令按钮，程序的运行结果？102. 在窗体中添加一个命令按钮，名称为Button1，两个文本框名称分别为Textbox1、Textbox2，然后编写如下程序： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 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 + DEnd Sub程序运行后，在文本框Textbox1、Textbox2中分别输入AbC和Efg，变量C和D的结果分别是？C=abcD=EFG3. 在窗体中添加一个命令按钮，名称为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程序运行后，单击命令按钮，在文本框中显示？274. 如有以下程序，点击button1后会有什么结果？Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, x%, j%, k% For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i MsgBox(x)End Sub15四. 编程题(10*4=40) (略)1. 在一个文本框中输入一个正整数，用msgbox显示用户输入的是偶数还是奇数。举例输入3后点击按钮，得到判定结果。Public Class Form1 Private Sub Button1_Click() Handles Button1.Click Dim a% Dim a% a = TextBox1.Text If a Mod 2 = 0 Then MsgBox(a & 是偶数) Else MsgBox(a & 是奇数) End If End SubEnd Class2. 编写函数过程计算1+1/2+1/3+.+1/100。Public Class Form1 Private Sub Form1_Load(.) Handles MyBase.Load Dim a%, b!, c! For a = 1 To 100 b = 1 / a c += b Next MsgBox(c) End SubEnd Class3. 随机产生10个0-100之间的整数放入数组，显示数组各元素的值，求出最大值、最小值和平均值。Public Class Form1 Private Sub Button1_Click(.) Handles Button1.Click Dim max%, min%, a%, d%(9), i% Randomize() For i = 0 To 9 d(i) = Int(Rnd() * 101 + 0) Next max = d(0) min = d(0) For i = 1 To 9 If d(i) max Then max = d(i) End If If d(i) min Then min = d(i) End If a += d(i) Label1.Text &= d(i) & Next Label2.Text