习题-项目二三大结构

《习题-项目二三大结构》由会员分享，可在线阅读，更多相关《习题-项目二三大结构（23页珍藏版）》请在装配图网上搜索。

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.Text=t

2、imeDA=x+y6对于InputBox函数,下列说法正确的是_.A每执行一次InputBox函数,只能输入一个值BInputBox函数的Prompt参数不能默认CInputBox函数输入的是数值型D函数值必须赋予一个变量7下列语句和函数调用正确的是_.AMsgBoxBX= MsgBoxCInputBox=XDX=InputBox8执行以下语句后显示结果为_.Dim xIf x Then Label1.Text= x Else Label1.Text= x+1A-1B0C1D不确定9多分支结构的Case语句,下列写法错误的是_.ACase 1, 5, 7, 9BCase 8 To 10CCas

3、e10 To 2DCase Is man10语句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不等于yBIf xy Then Label1.Text=x不等于yCIf xy Then Label1.Text=x不等于yDif

4、xy Label1.Text=x不等于y13下面程序段求两个数中大数,_是正确的.多选AMax=IIfy,x,yBIf 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 ThenLabel1.Text= 中ElseIf mark = 60 ThenLabel1.Text= 与格ElseLabel1.Tex

5、t= 不与格End IfBIf mark 60 ThenLabel1.Text= 不与格ElseIf mark 70 Then Label1.Text= 与格ElseIf mark 80 ThenLabel1.Text= 中ElseIf mark = 60 ThenLabel1.Text= 与格ElseIf mark = 70 ThenLabel1.Text= 中ElseIf mark = 80 ThenLabel1.Text=t 良ElseIf mark = 90 ThenLabel1.Text= 优ElseLabel1.Text= 不与格End IfDSelect Case markCas

6、e 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 20If n Mod 30 Then m=m+n3Next nLabel1.Text= nA15B18C21D2417For- Next循环结构中

7、,若循环控制变量的步长为0,则_.A形成无限循环B循环体执行一次后结束循环C语法错误D循环提不执行即结束循环18下列循环语句能正常结束循环的是_.Ai=5Do i=i+1Loop Until i0Bi=1Doi=i+2Loop Until i=10Ci=10Doi=i-1Loop Until i0Di=6Doi=i-2Loop Until i=119对于循环结构多选 Do 循环体 Loop While 则以下叙述中正确的是_.A若条件是一个为0的常数,则一次也不执行循环体B条件可以是关系表达式、逻辑表达式或常数C循环体中可以使用Exit Do语句D如果条件总是为True,则不停地执行循环体20

8、以下_不是正确的For- Next循环结构.多选AFor x=1 To Step 10 Next xBFor x=3 To -3 Step -3 Next xCFor x=1 To 10Re: 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 =1For j=1 To i n =n*jNext jLabel1.Text = nNext iBFor i=1 To 4For j=1 To i n =1 n =n*jNext jLabel1.

9、Text= nNext iCn=1For j=1 To 4 n =n*jLabel1.Text= nNext jDn=1 j =1Do While j=4 n = n*jLabel1.Text= n j=j+1Loop二程序填空：1根据下图,在空格处填入适当的内容： MsgBox2以下程序的功能是：输入一个3位正整数,将之逆序输出.例如,输入345,则输出543.请在空格处填入适当的内容,构成完整程序.Private Sub Button1_Click Handles Button1.ClickDim a%, b%, c%, m%m = InputBoxa = _m100b = _-10*ac

10、 = m Mod 10MsgBox 结果= +_ StrEnd Sub3以下程序的功能是：在窗体中每次单击窗体时,窗体均向右移动100缇.请在空格处填入适当的内容,构成完整程序.Public Class Form1 Dim x! Private Sub Button1_Click Handles Button1.Click x = x + _ Me._ = x End SubEnd Class4下列程序用于检查在文本框中输入的表达式中的圆括号是否匹配,请在空格处填入适当的内容,构成完整程序.Dimnum%Private Sub TextBox1_KeyPress Handles TextBox

11、1.KeyPress If _ Then chrasc= num = num + 1 ElseIf _ Then num = num - 1 End If If Asc = 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 But

12、ton1_Click Handles Button1.Click Dim sInput1 As Single, sInput2 As Single Dim iError As Integer sInput1 = Val sInput2 = Val Select Case _ textbox3.text Case + TextBox4.Text = Str Case - TextBox4.Text = Str Case * TextBox4.Text = Str Case / If sInput20 Then TextBox4.Text = Str Else iError = MsgBox If

13、 iError = vbRetry Then TextBox2.Text = _textbox2.focus Else End End If End If Case Else iError = MsgBox If iError = vbRetry Then TextBox3.Text = TextBox3.Focus Else End End If End Select End SubPrivate Sub Button2_Click Handles Button2.Click EndEnd Sub6输入一个大于0且小于1000的整数,并判断其是否为同构数所谓同构数,是指此数的平方数的最后几位

14、与该数相等.例如,252为625,25是同构数,请在空格处填入适当的内容,构成完整程序.Private Sub Form_ClickDim a!, b!a = ValInputBoxb = a * aIf_Then b mod 10 =a or b mod 100 =a or b mod 1000=aMsgBox Str & 是同构数ElseMsgBox Str & 不是同构数End IfEnd Sub7编写加密程序.在TextBox1中,将输入字符串中的所有小写字母转换为大写字母,同时按如下规律加密：A转换为C、B转换为D、X转换为Z、Y转换为A、Z转换为B,出现在字符串中的其他字符不变,并

15、在TextBox2中将结果输出,如下图所示.分析：加密有各种方法,最简单的加密方法是：将每个字母加一序数,本例中加序数2.Private Sub Button1_Click Handles Button1.Click Dim strin As String, code As String, ch As String Dim strlen As Integer, i%, chasc% strin = TextBox1.Text 用户输入的字符串 strlen = _去掉字符串右边的空格,求真正的长度 lenrtrim code = 加密后的字符串,初值为空 For i = 1 To strlen

16、 ch = _ 取字符串中第i个字符 mid ch = UCase 将小写字母转换为大写字母 Select Case ch Case A To Z chasc = Asc + 2 大写字母加序数加密 If chasc Asc Then chasc = chasc 26 加密后字母超过Z code = code + _ chr Case Else code = code + ch 当第i个字符为其他字符时不加密 End Select Next i TextBox2.Text = code 显示加密后的字符End SubPrivate Sub Button2_Click Handles Butto

17、n2.ClickText1.Text = Text2.Text = End SubPrivate Sub Button3_Click Handles Button3.ClickEndEnd Sub8对输入的任意大小写文章进行整理,规则：所有句子开头为大写,其他都是小写字母,句子结束符为.、?或!,运行界面如下图所示.提示：要实现句首为大写字母,其他都是小写字母,必须设置一个变量,存放当前处理的字符的前一个字符,来判断前一字符是否为句子结束符.Private Sub TextBox1_LostFocus Handles TextBox1.LostFocus Dim PreC As String,

18、 CurC As String, i% PreC = . TextBox2.Text = For i = 1 To Len CurC = _ mid If PreC = . Or PreC = ? Or PreC = ! Then CurC = UCase Else CurC = LCase End If TextBox2.Text = TextBox2.Text & CurC PreC = _ Next i End Sub9求Sn=a+aa+aaa+aaaa+aa.aaa,其中a是一个由随机数产生的1-9包括1,9中的一个正整数,n是一个由随机数产生的5-10包括5,10中的一个数,程序运行

19、结果如下图所示.例如：当a=7,n=8时,Sn=7+77+777+7777+.+77.777.提示：该题通项的关键是将一个数不断增加位数,通项关系为：Ti+1=Ti*10+aPrivate Sub Button1_Click Handles Button1.Click Dim s!, t!, i!, a%, n% a = IntRnd * 9 + 1 n = IntRnd * 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 &

20、Space Next i Label1.Text &= vbCrLf Label1.Text &= s End Sub10显示出所有的水仙花数一个3位数,其各位数字立方和等于该数字本身.Private Sub Button1_Click 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

21、k Next j Next i End Sub三程序改错：1.下面程序的功能是：随机产生一个两位数以内的整除算式,当在文本框中输入计算结果,并单击查看答案按钮后,弹出MsgBox信息框,显示正确答案,界面如下图.请找出程序中的错误,并改正之. Private Sub Button1_Click Handles Button1.ClickDim x%x = Val Val MsgBox正确答案是： & Str End Sub Private Sub Form7_Load Handles Me.Load Randomize Label1.Text = IntRnd * 100 Label3.Tex

22、t = IntRnd*99+1 *End Sub2.下面程序的功能是：随机产生一个3位正整数在文本框内显示,单击输出按钮,弹出MsgBox信息框,将该正整数反序显示输出,界面如下图.请找出程序中的错误,并改正之.Dim x%Private Sub Form8_Load Handles MyBase.LoadRandomizex = IntRnd * 900 + 100 TextBox1.Text = x End Sub Private Sub Button1_Click Handles Button1.Click Dim a, b, c, y a = x 100 b = x 10 Mod 10

23、 c = x Mod 10 y = cba y=c&b&a * MsgBoxEnd Sub3.下面程序的功能是：单击计算按钮,计算1+2+3+n,其中n50时,请用户重新输入.n的值在文本框中输入,界面如下图.请找出程序中的错误,并改正之.Private Sub Button1_Click Handles Button1.Click Dim n%, i%, s!s=0 n = Val If 1= n =1 and n=50 then * For i = 1 To n s = s + i Next i Label2.Text = 1+2+. & n & 的和是： & s Else Label2.

24、Text = 请重新输入一个150的整数 TextBox1.Focus End If End Sub参考答案一 选择题：1. D 2. C 3. C 4. B 5. BCD 6. ABD 7. ABD 8C 9C 10C 11A 12ACD 13ABC 14ABD 15C 16 C 17A 18C 19BCD 20ACD 21ACD二、程序填空题1. str的值是在0,5内提示信息2m 100 10 Str3100Left4ChrAsc = ChrAsc = num = 0num 05TrimTextBox2.Focus6a = Or a = Or a = 7 LenRTrim Mid Chr8MidCurC9t = 0t = t * 10 + a101 To 9i 3 + j 3 + k 3三、程序改错题1.Label3.Text = IntRnd * 99 + 1,除数不能为0.2. y = c & b & a3. If n = 1 And n = 50 Then23 / 23