习题项目二三大结构

1、项目二 习题一 选择题：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.

2、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多分支结构的

3、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 x<3*y And x>y Then y=x3BIf x<3*y And x>y Then y=x3CIf x<3*y : x>y Then y=x3DIf x<3*y And

4、x>y Then y=x*312下列语句不正确的是_。（多选）AIf xy Then Label1.Text= “x不等于y”BIf x<>y Then Label1.Text= “x不等于y”CIf x><y Then Label1.Text= “x不等于y”Dif xy Label1.Text= “x不等于y”13下面程序段求两个数中大数，_是正确的。（多选）AMax=IIf(x>y,x,y)BIf x>y then Max=x Else Max=yCMax=x If y>=x Then Max=yDIf y>=x Then Max=y

5、 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=

6、"不及格"ElseIf mark < 70 Then L abel1.Text= "及格"ElseIf mark < 80 Then Label1.Text= "中"ElseIf mark < 90 Then Label1.Text= "良"ElseLabel1.Text="优"End IfCIf mark >= 60 ThenLabel1.Text= "及格"ElseIf mark >= 70 Then Label1.Text= "中

7、"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

8、>= 60Label1.Text= "及格"Case ElseLabel1.Text= "不及格"End Select15For- Next循环的初值、终值与步长_。A只能是具体的数值B只能是表达式C可以是数值表达式D可以是任何类型的表达式16执行下面的程序段后，n的值为_。 For n=1 To 20 If n Mod 3<>0 Then m=m+n3 Next n Label1.Text= nA15B18C21D2417For- Next循环结构中，若循环控制变量的步长为0，则_.A形成无限循环B循环体执行一次后结束循环C语法错误D

9、循环提不执行即结束循环18下列循环语句能正常结束循环的是_。Ai=5 Do i=i+1 Loop Until i<0B i=1 Do i=i+2 Loop Until i=10C i=10 Do i=i-1 Loop Until i<0D i=6 Do i=i-2 Loop Until i=1 19对于循环结构（多选） Do 循环体 Loop While <条件>则以下叙述中正确的是_。A若“条件”是一个为0的常数，则一次也不执行循环体B“条件”可以是关系表达式、逻辑表达式或常数C循环体中可以使用Exit Do语句D如果“条件”总是为True，则不停地执行循环体20以下

10、_不是正确的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

11、 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

12、 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 send

13、er 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

14、 _ 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 & "个

15、" 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.Tex

16、t) Select Case _ textbox3.text Case "+" TextBox4.Text = Str(sInput1 + sInput2) Case "-" TextBox4.Text = Str(sInput1 - sInput2) Case "*" TextBox4.Text = Str(sInput1 * sInput2) Case "/" If sInput2<>0 Then TextBox4.Text = Str(sInput1 / sInput2) Else iError

17、= 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

18、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

19、_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中将结果输出，如下图所示。分析：加密有各种方法，最简单的加密方法是：将

20、每个字母加一序数，本例中加序数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

21、 = "" '加密后的字符串，初值为空 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(

22、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_Cl

23、ick(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.E

24、ventArgs) 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 = LC

25、ase(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

26、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 &

27、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 =

28、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

29、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

30、 Sub2.下面程序的功能是：随机产生一个3位正整数在文本框内显示，单击“输出”按钮，弹出MsgBox信息框，将该正整数反序显示输出，界面如下图。请找出程序中的错误，并改正之。Dim x%Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize()x = Int(Rnd() * 900) + 100 TextBox1.Text = x End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c, y a = x 100 b = x 10 Mod 10 c = x Mod 10 y = cba y=c&b&a * MsgBox("反序输出的结果是：" & y)End Sub3.下面程序的功能是：单击“计算”按钮，计算1+2+3+n，其中n<=50，当n>50时，请用户重新输入。n的值在文本框中输入，界面如下图。请