习题项目二三大结构.doc

项目二 习题一 选择题：1MsgBox函数中有4个参数，其中必须写明的参数是_.A指定对话框中显示按钮的数目B设置对话框标题C所有参数都是可选的D提示信息2语句X=X+1的正确含义是_。A变量X的值与X+1的值相等B将变量X 的值存到X+1中去C将变量X的值加1后赋给变量XD变量X的值为13以下_程序段可以实现X、Y变量值的交换。AY=X：X=YBZ=X：Y=Z：X=YCZ=X：X=Y：Y=ZDZ=X：W=Y：Y=Z：X=Y4InputBox函数返回的函数值的类型是_。A数值B字符串C根据需要可以是任何类型数据D数值或字符串5下列语句中正确的是_。(多选)Ax+y=5BN=15Clabel1.Text=”time”DA=x+y6对于InputBox函数，下列说法正确的是_。(多选)A每执行一次InputBox函数，只能输入一个值BInputBox函数的Prompt参数不能默认CInputBox函数输入的是数值型D函数值必须赋予一个变量7下列语句和函数调用正确的是_。(多选)AMsgBox(“是否继续”)BX= MsgBox(“是否继续”)CInputBox(“请输入数据”)=XDX=InputBox(“请输入数据”)8执行以下语句后显示结果为_。Dim xIf x Then Label1.Text= x Else Label1.Text= x+1A-1B0C1D不确定9多分支结构的Case语句，下列写法错误的是_。ACase 1, 5, 7, 9BCase 8 To 10CCase10 To 2DCase Is ”man”10语句If x=1 Then y=1，下列说法正确的是_。Ax=1和y=1均为赋值语句Bx=1和y=1均为关系表达式Cx=1为关系表达式，y=1为赋值语句Dx=1为赋值语句，y=1为关系表达式11下面语句正确的是_。AIf xy Then y=x3BIf xy Then y=x3CIf xy Then y=x3DIf xy Then y=x*312下列语句不正确的是_。（多选）AIf xy Then Label1.Text= “x不等于y”BIf xy Then Label1.Text= “x不等于y”CIf xy,x,y)BIf xy then Max=x Else Max=yCMax=x If y=x Then Max=yDIf y=x Then Max=y Max=x14下列程序段正确的是：_。（多选）AIf mark = 90 ThenLabel1.Text= 优ElseIf mark = 80 ThenLabel1.Text= 良ElseIf mark = 70 Then Label1.Text= 中ElseIf mark = 60 Then Label1.Text= 及格ElseLabel1.Text= 不及格End IfBIf mark 60 ThenLabel1.Text= 不及格ElseIf mark 70 Then L abel1.Text= 及格ElseIf mark 80 Then Label1.Text= 中ElseIf mark = 60 ThenLabel1.Text= 及格ElseIf mark = 70 Then Label1.Text= 中ElseIf mark = 80 Then Label1.Text=t 良ElseIf mark = 90 Then Label1.Text= 优ElseLabel1.Text= 不及格End IfDSelect Case markCase Is = 90Label1.Text= 优Case Is = 80Label1.Text= 良Case Is = 70Label1.Text= 中Case Is = 60Label1.Text= 及格Case ElseLabel1.Text= 不及格End Select15For- Next循环的初值、终值与步长_。A只能是具体的数值B只能是表达式C可以是数值表达式D可以是任何类型的表达式16执行下面的程序段后，n的值为_。 For n=1 To 20 If n Mod 30 Then m=m+n3 Next n Label1.Text= nA15B18C21D2417For- Next循环结构中，若循环控制变量的步长为0，则_.A形成无限循环B循环体执行一次后结束循环C语法错误D循环提不执行即结束循环18下列循环语句能正常结束循环的是_。Ai=5 Do i=i+1 Loop Until i0B i=1 Do i=i+2 Loop Until i=10C i=10 Do i=i-1 Loop Until i0D i=6 Do i=i-2 Loop Until i=1 19对于循环结构（多选） Do 循环体 Loop While 则以下叙述中正确的是_。A若“条件”是一个为0的常数，则一次也不执行循环体B“条件”可以是关系表达式、逻辑表达式或常数C循环体中可以使用Exit Do语句D如果“条件”总是为True，则不停地执行循环体20以下_不是正确的For- Next循环结构。（多选）AFor x=1 To Step 10 Next xBFor x=3 To -3 Step -3 Next xCFor x=1 To 10 Re: Next x If i=10 Then goto ReDFor x=3 To 10 Step 3 Next y21下面哪几个程序段能分别正确显示1！、2！、3！、4！的值_。（多选）AFor i=1 To 4 n =1 For j=1 To i n =n*j Next j Label1.Text = n Next iBFor i=1 To 4 For j=1 To i n =1 n =n*j Next j Label1.Text = n Next iCn=1 For j=1 To 4 n =n*j Label1.Text= n Next jDn=1 j =1 Do While j=4 n = n*j Label1.Text= n j=j+1 Loop二程序填空：1根据下图，在空格处填入适当的内容： MsgBox(_, 48, _) 2以下程序的功能是：输入一个3位正整数，将之逆序输出。例如，输入345，则输出543。请在空格处填入适当的内容，构成完整程序。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a%, b%, c%, m%m = InputBox(请输入一个正整数：)a = _ m100b = _(m 10)-10*ac = m Mod 10MsgBox 结果= +_ Str(100*c+10*b+c)End Sub3以下程序的功能是：在窗体中每次单击窗体时，窗体均向右移动100缇。请在空格处填入适当的内容，构成完整程序。Public Class Form1 Dim x! Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click x = x + _ Me._ _ = x End SubEnd Class4下列程序用于检查在文本框中输入的表达式中的圆括号是否匹配，请在空格处填入适当的内容，构成完整程序。Dim num%Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If _ Then chr(asc(e.keychar)=”)” num = num + 1 ElseIf _ Then num = num - 1 End If If Asc(e.KeyChar) = 13 Then If _ Then num=0 Label1.Text = 左右括号配对 ElseIf _ Then Label1.Text = 左括号多于右括号 & num & 个 Else Label1.Text = 右括号多于左括号 & -num & 个 End If End If End Sub5下面是一模拟袖珍计算器的程序，输出界面如下图所示。请在空格处填入适当的内容，构成完整程序。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sInput1 As Single, sInput2 As Single Dim iError As Integer sInput1 = Val(TextBox1.Text) sInput2 = Val(TextBox2.Text) Select Case _ textbox3.text Case + TextBox4.Text = Str(sInput1 + sInput2) Case - TextBox4.Text = Str(sInput1 - sInput2) Case * TextBox4.Text = Str(sInput1 * sInput2) Case / If sInput20 Then TextBox4.Text = Str(sInput1 / sInput2) Else iError = MsgBox(分母为零,出错, vbRetryCancel) If iError = vbRetry Then TextBox2.Text = _textbox2.focus Else End End If End If Case Else iError = MsgBox(运算符出错,再输入, vbRetryCancel) If iError = vbRetry Then TextBox3.Text = TextBox3.Focus() Else End End If End Select End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click EndEnd Sub6输入一个大于0且小于1000的整数，并判断其是否为同构数（所谓同构数，是指此数的平方数的最后几位与该数相等）。例如，252为625，25是同构数，请在空格处填入适当的内容，构成完整程序。 Private Sub Form_Click()Dim a!, b!a = Val(InputBox(输入一个数)b = a * aIf_Then b mod 10 =a or b mod 100 =a or b mod 1000=aMsgBox Str(a) & 是同构数ElseMsgBox Str(a) & 不是同构数End IfEnd Sub7编写加密程序。在TextBox1中，将输入字符串中的所有小写字母转换为大写字母，同时按如下规律加密：“A”转换为“C”、“B”转换为“D”、“X”转换为“Z”、“Y”转换为“A”、“Z”转换为“B”，出现在字符串中的其他字符不变，并在TextBox2中将结果输出，如下图所示。分析：加密有各种方法，最简单的加密方法是：将每个字母加一序数，本例中加序数2。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strin As String, code As String, ch As String Dim strlen As Integer, i%, chasc% strin = TextBox1.Text 用户输入的字符串 strlen = _ 去掉字符串右边的空格，求真正的长度 len(rtrim(strin) code = 加密后的字符串，初值为空 For i = 1 To strlen ch = _ 取字符串中第i个字符 mid(strin,i,1) ch = UCase(ch) 将小写字母转换为大写字母 Select Case ch Case A To Z chasc = Asc(ch) + 2 大写字母加序数加密 If chasc Asc(Z) Then chasc = chasc 26 加密后字母超过Z code = code + _ chr(chasc) Case Else code = code + ch 当第i个字符为其他字符时不加密 End Select Next i TextBox2.Text = code 显示加密后的字符End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickText1.Text = Text2.Text = End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd Sub8对输入的任意大小写文章进行整理，规则：所有句子开头为大写，其他都是小写字母，句子结束符为“.”、“?”或“!”，运行界面如下图所示。提示：要实现句首为大写字母，其他都是小写字母，必须设置一个变量，存放当前处理的字符的前一个字符，来判断前一字符是否为句子结束符。Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus Dim PreC As String, CurC As String, i% PreC = . TextBox2.Text = For i = 1 To Len(TextBox1.Text) CurC = _ mid(textbox1.text,i,1) If PreC = . Or PreC = ? Or PreC = ! Then CurC = UCase(CurC) Else CurC = LCase(CurC) End If TextBox2.Text = TextBox2.Text & CurC PreC = _ Next i End Sub9求Sn=a+aa+aaa+aaaa+aa.aaa(n个a)，其中a是一个由随机数产生的1-9（包括1，9）中的一个正整数，n是一个由随机数产生的5-10（包括5，10）中的一个数，程序运行结果如下图所示。例如：当a=7,n=8时，Sn=7+77+777+7777+.+77.777(8个7)。提示：该题通项的关键是将一个数不断增加位数，通项关系为：Ti+1=Ti*10+aPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s!, t!, i!, a%, n% a = Int(Rnd() * 9 + 1) n = Int(Rnd() * 6 + 5) _ t=0 s = 0 Label1.Text = a= & a & n= & n & vbCrLf For i = 1 To n _t= t*10+a s = s + t Label1.Text &= t & Space(3) Next i Label1.Text &= vbCrLf Label1.Text &= s End Sub10显示出所有的水仙花数（一个3位数，其各位数字立方和等于该数字本身）。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, j%, k%, s% Label1.Text = For i = _ 0 to 9 For j = 0 To 9 For k = 0 To 9 s = i * 100 + j * 10 + k If s = _ Then i3+j3+k3 Label1.Text &= s & End If Next k Next j Next i End Sub三程序改错：1.下面程序的功能是：随机产生一个两位数以内的整除算式，当在文本框中输入计算结果，并单击“查看答案”按钮后，弹出MsgBox信息框，显示正确答案，界面如下图。请找出程序中的错误，并改正之。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x%x = Val(Label1.Text) Val(Label3.Text) MsgBox(正确答案是： & Str(x) End Sub Private Sub Form7_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Randomize() Label1.Text = Int(Rnd() * 100) Label3.Text = Int(Rnd()*99+1) *End Sub2.下面程序的功能是：随机产生一个3位正整数在文本框内显示，单击“输出”按钮，弹出MsgBox信息框，将该正整数反序显示输出，界面如下图。请找出程序中的错误，并改正之。Dim x%Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.Eve