2008-2009VB试卷A.doc

上海应用技术学院20082009学年第二学期程序设计基础VB.NET期（末）（A）试卷 班级： 姓名： 学号： 分数： 我已阅读了有关的考试规定和纪律要求，愿意在考试中遵守考场规则，如有违反将愿接受相应的处理。题 号一二三四五六七八九十总 分得 分 试卷共 8 页，请先查看试卷有无缺页，然后答题。一、 选择题(每题1分，共20题，1*20=20分)1、 语句“If x=2 Then y=2”，下列说法正确的是 。A. “x=2”和“y=2” 均为赋值语句。B. “x=2”和“y=2” 均为关系表达式。C. “x=2”为关系表达式，“y=2”为赋值语句。D. “x=2”为赋值语句，“y=2”为关系表达式。2、 用于字符串连接的运算符是 。A. & B. + C. AndD. A、B都可以 3、 如下数组声明语句中，正确的是 。A. Dim a(3, 4) As IntegerB. Dim a3, 4As IntegeC. Dim a(3, 4) As IntegeD. Dim a(34) As Intege4、 设a“迎接2010年上海世博会”，则使变量b的值为“上海”的语句为 。A. b=Left(a,8) B. b=Mid(a,8,2)C. b=Rigth(a,5)D. b=Mid(a,5,2)5、 设置文本框的 属性用于输入口令类的文本。A. ReadOnly B. PassWordChar C. TextD. 以上都不是6、 控件用于显示较长的选项列表，用户可以从中进行选择。A. ListBoxB. CheckBoxC. LabelD. 以上都不是7、 过程Sub Test（ByVal x As Integer, ByRef y As Integer）中 。A. x、y都是传值参数 B. x、y都是传址参数C. x是传值参数，y是传址参数 D. x是传址参数，y是传值参数8、 将数据输出显示的时候，以下哪种方式不适用 。A.标签labelB.文本框textboxC.msgbox函数D.inputbox函数9、 数学关系式 5 = x 10 表示成正确的 VB.NET 表达式，应该是 。A. 5=x10B. 5=x AND x=5 OR x10D. x1010、 不论何种控件，共同具有的是 属性。A. Text B. Name C. ForeColorD.Caption11、 Int(196.555*100+0.5)/100 的值是 。A. 196.56 B. 197.6 C. 198 D. 19612、 下列数组声明语句中，数组a包含元素的个数有几个 。 Dim a(3, 5) As IntegerA. 15B.18C. 20D. 2413、 在设计状态，列表框中的选项可以通过哪个属性来进行设置 。A.ListB.Items.Count C.TextD. Items14、 设置计时器时间间隔的属性是 。A. EnabledB. Name C. Interval D. Modifiers15、 已知a=12，b=20，复合赋值语句“a*=b+10”执行后，a变量中的值为 。A. 50 B. 250 C. 30 D. 36016、 下列正确的赋值语句是 。A. x+y=20 B. y=x+10 C. y=* r * r D. 3y=x17、 Rnd函数不可能为下列 值。A. 0B. 1C. 0.005 D. 0.99918、 下面哪个控件在程序运行时是不可见的 。A. 单选钮 B. 组合框 C. 计时器 D. 框架19、 下面程序段求两个数中的大数，不正确的是 。A. Max1=IIf（x y, x ,y） B. If x y Then Max1 = x Else Max1 = yC. Max1 = Math.Max( x, y )D. If y=y Then Max1 = y Else Max1 = x20、 下面程序段运行后，x的值是 。Dim x,y as Integery=-2x=y=-1A. -1B. 0C. -2D. 不确定二、 综合题（每题4分，共5题，4*5=20分）1、 VB.NET提供了结构化程序设计的三种基本结构，请问是哪三种基本结构？2、 随机生成一个“A”“Z”之间的大写字母赋给变量C。“A”的ASCII码为65。3、 若在函数中不明确指定参数的传递方式，默认的传递方式是 ，其关键字是 。4、 计算下列语句的循环次数：1) For i = -3 To 20 Step 4 2) For i = -3.5 To 5.5 Step 0.5 3) For i = -3.5 To 5.5 Step -0.5 4) For i = -3 To 20 Step 1 5、 简述子过程和函数过程的异同点，并说明子过程和函数过程分别适用在什么情况下。三、 读以下程序段，写读程过程及运行结果。（每题4分，共5题，4*5=20分）1、 请写出程序运行后的结果 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, n As Integer, c, a As String a = computer n = Len(a) For i = 1 To Len(a) 2 c = Mid(a, i, 1) Mid(a, i, 1) = Mid(a, n - i + 1, 1) Mid(a, n - i + 1, 1) = c Next i Label1.Text = aEnd Sub2、 请写出程序运行后的结果 。Public Sub Proc(ByRef a%()dim i%Do a(i) = a(i) + a(i + 1) i = i + 1 Loop While i 2End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim m%, i%, x%(10) For i = 0 To 4 x(i) = i + 1 Next i For i = 1 To 2 Call Proc(x) Next i For i = 0 To 4 Label1.Text &= x(i) & Next iEnd Sub3、 运行下列程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是多少 。Public Class form1Private x As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Static y As Integer Dim z As Integer Static n As Integer n = 10 z = n + z y = y + z x = x + z Label1.Text = x Label2.Text = y Label3.Text = zEnd SubEnd Class4、 当用户点击button1后，在弹出的输入框中输入2050，然后点击确定按钮，运行结果 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim Year As IntegerDim n As IntegerYear = Val(InputBox(请输入你的出生年份)If Year = 0 Then MsgBox(很遗憾，输入的年份有错误, MsgBoxStyle.Information, 提示)End Ifn = (Year Mod 12)Label1.Text = Year & 年的生肖是： & Choose(n + 1, 猴, 鸡, 狗, 猪, 鼠, 牛, 虎, 兔, 龙, 蛇, 马, 羊)End Sub5、 请写出程序运行后的结果 。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, n As Integer, x As Stringn = 10x = Do While n 0a = n Mod 2n = n 2x = Chr(Asc(0) + a) & xLoopMsgBox(x= & x)End Sub注：09的ASCII为4857。四、 编程题（每题8分，共5题，8*5=40分）1、 设计如图所示的计算程序，复选框被勾选时输出结果保留5位小数，否则保留两位小数。2、 输入任意的一个数，求函数y的值。 x*x (x0)Y= 0 (x=0) x (x0)3、 假设你有一个TextBox1用来输入一串字母和数字组成的字符串。使用Select选择结构，