《程序设计》一、单项选择题1．不论何种控件，共同具有的是___D_______属性。
A．Text B．Image C．Caption D．Name2．在代码窗口，代码下方有兰色波浪线表示_____B_____。
A．对代码设置了格式B．语法错误C．逻辑错误D．运行时错误3．若要使命令按钮不可操作，要对______A____ 属性设置。
A．Enabled B．Visible C．BackColor D．Text4．要使文本框输入的字符显示为*，则需要设置____C_____。
A．Text属性值为* B．PasswordChar属性值为空C．PasswordChar属性值为* D．Name属性值为*5．对于窗体，下面_____B_____属性可改变窗体的边框性质。
A．MaxButton B．FormBorderStyleC．Name D．Left6．下列数值中，______C____ 不可能通过表达式Rnd * 20 + 10 产生。
A．10 B．20 C．30 D．12.57．对于语句If x = 1 Then y = 2，下列说法正确的是______c____。
A．x = 1 和y = 2 都是赋值语句B．x = 1 和y = 2 均为关系表达式C．x = 1 为关系表达式，y = 2 为赋值语句 D．x = 1 为赋值语句，y = 2 为关系表达式8．表达式Len("VB．NET程序设计")的值是_____A_____。
A．10 B．14 C．7 D．129．能够获得一个文本框中被选取文本内容的属性是_____C_____。
A．Text B．SelectionLength C．SelectedText D．SelectionStart 10．使用开发环境的目的是_____B____ 。
A．图像处理B．开发Windows和Web应用程序C．制作W A V文件D．文字处理11．下列控件中，既可用于输入文本，又可用于显示文本的是____B_____。
A．Label 控件B．TextBox 控件C．Timer 控件D．Button 控件12．下列语句正确的是___B______。
A ．If x≥0 Then MsgBox(“x不小于0”)B．If x>=0 Then MsgBox( “x不小于0”)C．If x≥0 Then MsgBox( “x不小于0”) End IfD．If x>=0 Then MsgBox( “x不小于0”)End If13．计算今天离2009年1月1日还要多少天的表达式为______D____。
A．DateAdd(Now , #1/1/2009# ) B．DateDiff(Now , #1/1/2009# )C．DateAdd("d", Now , #1/1/2009# ) D．DateDiff("d", Now , #1/1/2009# )14．按变量名的定义规则，______C___是错误定义的变量名。
A．Mnd B．Mark_2 C．Single D．Cmd15．要使当前Form1窗体的标题栏显示"欢迎使用"，以下___B______ 语句是正确的。
A．Form1.Text="欢迎使用" B．Me.Text=" 欢迎使用 "C．=" 欢迎使用" D．=" 欢迎使用 " 16．要使x,y,z三个变量的值为1，下面正确的赋值语句是____b______。
A．x=1: y=1: z=1 B．x=1，y=1，z=1 C．x=y=z=1 D．xyz=117．已知a=12，b=20，复合赋制语句”a*=b+10”执行后，a变量中的值是_______B___。
A．50 B．360 C．30 D．25018．下列程序段执行时显示的结果是______A____。
Dim xx=int(Rnd)+5select case xcase 5Msgbox(“优秀”)Case 4Msgbox(“良好”)Case 3Msgbox(“通过”)Case elseMsgbox(“不通过”)End selectA．优秀B．良好C．通过D．不通过19. 当在文本框中输入“ABCD”四个字符时，窗体上显示的是_____c_____。
Sub TextBox1_TextChanged(……) Handles TextBox1.TextCh angedLabel1.text &=Textbox1.TextEnd SubA．ABCD B．A C．AABABCABCD D．AB ABC ABCD ABCD20．下列程序段不能分别正确显示1！、2！、3！、4！的值的是______B____。
A．For i = 1 To 4n = 1For j = 1 To in = n * jNext jMsgBox(n)Next iB．For i = 1 To 4For j = 1 To in=1n = n * jNext jMsgBox(n)Next iC．n = 1For j = 1 To 4n=n*jMsgBox(n)Next jD．n = 1j = 1Do While j< = 4n = n * jMsgBox(n)j=j+1Loop二、填空题1．当对文本框的ScrollBars属性设置为ScrollBars.Vertical（有垂直滚动条），但没有垂直滚动条显示，是没有对____multiline______ 属性设置为True的原因。
2．对For i = 5 To -5 Step -2 语句，共循环_____3_____次。
3．要限定文本框的输入的字符数，则可通过___________属性进行设置。
4．表达式："12" + "20"的结果为___________。
5．表示x是5的倍数或是9的倍数的逻辑表达式为 _______ 。
6．要显示当前机器内的日期，函数为________。
7．要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置了______ 属性为True 。
8．下面程序运行后输出的结果是__________。
x = Int(Rnd) + 3If x ^ 2 > 8 Then y = x ^ 2 + 1If x ^ 2 = 9 Then y = x ^ 2 - 2If x ^ 2 < 8 Then y = x ^ 3MsgBox(y)9．所谓回文素数是指构成的字符左右对称的素数。
例如：11、101、313等。
下面的程序求10~1000以内的所有回文素数。
程序的思想是选取正整数N，若N是素数，调用子过程hws判断该素数是否为回文数(判断左右对称)，若是，在文本框内显示所求结果，如图所示。
Private Sub Button1_Click(…) Handles Button1.ClickDim flg As Boolean,i%, j%, m%For i =m= Int(Sqr(i))For j = 2 To m ' 判断是否为素数If i Mod j = 0 ThenNext jIf j>m ThenCallIf flg Then Text1 = Text1 & i & vbCrLfEnd IfNext iEnd SubPrivate Sub hws(n As Integer, bz As Boolean)Dim j%, k%, m$bz = Truem = CStr(n) ' 将数值转为字符k = ' 求字符m的长度For j = 1 To k \ 2 ' 判断回文数If Mid <> Mid(m, k - j + 1, 1) Thenbz = FalseExit ForEnd IfNext jEnd Sub10．求1000以内满足如下条件的正整数N：它的各个因子（包括1和N）之和sum是一个素数。
例如：25的因子为1、5、25，其和1+5+25 = 31是素数。
程序的思想是选取正整数N，分解其因子，并累加，子过程Prime 用于判断累加和是否是素数，若是素数，在文本框内显示所求结果，如图所示。
Private Sub Button1_Click(…) Handles Button1.ClickDim flg As Boolean, i%, sum%, n%, t$For n = 2 To 1000sum = 1t = "1" ' 存放各个因子之和表达式i = 2Do While i <= ' 求给定正整数的所有因子If n Mod i = 0 Thensum =t &= "+" & iEnd Ifi += 1Loopt = t & " = " & sumCallIf flg ThenTextBox1.text &= Str(n) & ": " & & vbCrLfEnd IfNext nEnd SubPrivate Sub Prime(ByVal s As Integer, flage As Boolean) ' 判断s素数Dim m%flage = TrueFor m = 2 To Sqr(s)If s Mod m = 0 Thenflage =Exit For ' 非素数时，跳出End IfNext mEnd Sub11．输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。
判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除。
同时请用日期型变量的IsLeapYear 成员来验证。
Dim d As Dated = Nowif or d.Year mod 400=0 thenMsgBox(d.Year & "是闰年")ElseMsgBox(d.Year & "是平年")End IfIf d.IsLeapYear( ) ThenMsgBox(d.Year & "是闰年")ElseMsgBox(d.Year & "是平年")End If三、上机题将“二、填空题”中的9-11题上机调试。
四、作业提交办法1．单选题和填充题将答案写在题中的处，并将答案汇总后写在该大题的最后，如：单项选择题答案：DBACB CCACB ……最后提交WORD文档文件。