高中信息技术VB常用的标准函数浏览题阅览题会考复习题.docx

1、高中信息技术VB常用的标准函数浏览题阅览题会考复习题高中信息技术 VB常用的标准函数 浏览题阅览题 会考复习题学校:_姓名：_班级：_考号：_评卷人得分一、选择题1下列流程图描述的是判断任意3个正数A、B、C是否能构成勾股数，请按此算法功能，把流程图填写完整。A . A2=B2+C2 or B2=A2+C2 and C2=A2+B2B . A2=B2+C2 and B2=A2+C2 or C2=A2+B2C . A2=B2+C2 and B2=A2+C2 and C2=A2+B2D . A2=B2+C2 or B2=A2+C2 or C2=A2+B2【答案】D【解析】2对输入的两个整数a和b，

2、找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为【答案】D【解析】3下列Visual Basic表达式中计算结果为4的是（ ）AAbs(-4.2) BLen(a123) CSqr(4) DInt（3.5）【答案】B【解析】4在Visual Basic中，有如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integer,c As IntegerDim d As Integer,z As Integera=Val(Text1 Text):b=Val(Text2.Text):c=Val(Text

3、3.Text)d=max(a,b)z=max(d,c)Text4,Text=Str(d)Text5,Text=Str(z)End SubFunction max(x As Integer,y As Integer) As IntegerIf xy Then max=x Else max=yEnd Function分析该程序段，下列说法正确的是（ ）A.该程序中包含了两个自定义函数B.在函数max中定义了两个整数型参数C.在textl，text2，text3中输入数据后程序即被执行D.函数max的返回值是字符串类型【答案】B【解析】题目中只包含了一个自定义函数max（）,函数的返回值是integ

4、er整数型。5随机产生1560之间正整数（包括15和60）的表达式是（ ）AFix(15*Rnd)+60BInt(60*Rnd)+15CInt(46*Rnd)+15D.Fix(45*Rnd)+15【答案】C【解析】Rnd函数的使用方法:1、产生的随机范围内有X个整数则最终公式中应为：Rnd*X；2、产生的随机范围从Y开始则最终公式应为：Rnd+Y。如：产生一个范围在-520之间的随机整数。分析：X为26，Y为-5，所以最终公式为：Int（Rnd*26-5）或Int（Rnd*26）-56对以下程序段的说法正确的是（ ）s=0i=0Do While s10i=i+1s=s+i*iLoopA该程序的

5、循环体执行了3次B该程序段结束后i的值为3C该程序段结束后i的值为4D该程序段结束后s的值为13【答案】ABD【解析】7有如下一段VB程序。Private Sub Command1_Click() Dim y As Long Text1.Text = y = f(3) Label1.Caption = Str(y)End SubFunction f(n As Integer) As Long Text1.Text = Text1.Text + Str(n) If n = 1 Then f = 1 Else f = f(n - 1) + 2 End IfEnd Function程序运行时，单击命

6、令按钮Command1后，文本框Text1中显示的内容是（ ）A 1 B 3 C 123 D 321【答案】D【解析】8下列VB表达式的值等于3的是( )。A Sqr(2) + 1 B Abs(-1) - 2C Asc(1) + 2 D Len(-2) + 1【答案】D【解析】9下列判断x1的VB表达式中，正确的是（ ）。Ax1 Cx =1 Dxb then c=aend ifprint cA25 B18 C7 D0【答案】A【解析】16阅读如下Visual Basic程序，Function ave （a As single，b As single） as singleave=（a+b）2En

7、d FunctionPrivate Sub Command1_Click（）Print ave（4,5）End Sub程序运行结果是（ ）A9B4.5C5D4【答案】D【解析】ave（）是求整数平均数的自定义函数。17有如下Visual Basic程序段：A“Happy new year！”BLen(A)2C63 Mod 10Text1.TextMid(A，B，C)该程序运行后文本框text1显示的内容为( )A 3 B newC B D Mid(A，7，3)【答案】B【解析】18写出下面流程图所表述的算法的功能A. 降序排序B. 求最大值C. 交换输出D. 判断是否是偶数【答案】B【解析】1

8、9将1、1、2、3、5、8、13、21、数列的前20项存入a数组的正确程序段是_。【答案】C【解析】20在VB中，设x=389，能得到其百位数字“3”的正确表达式是_。A、Int(x/10)*10 B、Int(x/100)*100 C、Int(x/100) D、x-Int(x/10)*10【答案】C【解析】21下列VB程序段运行完毕后，变量x的值为x=2 : y=64Do while x= Sqr(y)x=x+3LoopA 2 B 5 C 8 D 11【答案】D【解析】22下列VB函数中，返回值类型均为String的是（ ）ALen和StrBAsc和MidCChr和StrDSqr和Exp【答案

9、】C【解析】chr（）函数和str（）函数的返回值都是string型。23小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示： uname = Text1.Text 输入用户名 psd = Text2.Text 输入密码 vcode = Val(Text3.Text) 输入验证码 If vcode Val(Label3.Caption) Then MsgBox “” Label3显示的是随机验证码 ElseIf uname admin Or psd 123456 Then MsgBox “ ” Else Msg

10、Box “ ” 方框中正确的语句是（ ）。A 中“验证成功” B 中“输出用户名或密码有误”C 中“验证成功 D 中“输出验证码错误”【答案】B【解析】24设X=5278,能得到其百位上数字“2”的正确表达式是( ）AX MOD 100BX100 MOD 10CX100 MOD 100DX10 MOD 10【答案】B【解析】25在计算平均重量X时，结果中产生了许多位小数，若需要对X保留一位小数，并对第二位小数进行四舍五入，则下列表达式中正确的是（ ）AInt(x*10+0.5)/10BInt(x*100+0.5)/100CInt(x*10)/10DInt(x+0.5)【答案】A【解析】int（

11、）函数用于计算不大于x的最大整数。评卷人得分二、填空题26（1）所谓算法是 。（2）VB界面设计一般包括 、 、 。（3）描述算法的方法有3种，分别是 、 、 。（4）VB是一种 程序设计语言。（5）abs（3.8） sqr（49） int（7.8） （6）int（10*Rnd）表示 【答案】（1）解决问题的方法和步骤；（2）设计程序界面 编写程序代码 调试、运行程序 （3）自然语言主 伪代码 流程图 （4）可视化（面向对象或高级语言都算对）（5）3.8；7；8；（6）09这十个整数【解析】27有一组数：1、2、4、7、，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数

12、比第3个数大3，以此类推。求其前20项的和。以下VB程序实现上述功能，请把程序中的、出填写完整。Dim i As Integer, p As Integer, s As Integeri = 1p = 1s = 0Do While _ s = s + p i = i + 1 _LoopPrint s【答案】i=3)是否为素数；提示：将一个不小于3的整数n分别除以2到n的平方根之间的所有整数，如果全部除不尽，那么n为素数（质数），否则本为非素数（合数）编写程序如下：Sub Form_Click( )Dim n As Intergern=InputBox(“请输入一个正整数（n=3):”）k=In

13、t(Spr(n)i=2Swit=0While in；（2）m除以n得余数r；（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；（4）mn，nr，再重复执行(2)。例如: 求 m=14 ,n=6 的最大公约数. M n r14 6 26 2 0请根据以上思路补充下面的程序代码：Private Sub Command1_Click()m = InputBox(m=)n = InputBox(n=)If m n Then t = m: m = n: n = tr = _Do While (r 0)m = nn = rr = m Mod nLoopPrint 最大公约数=, nEnd

14、Sub【答案】m mod n【解析】评卷人得分四、判断题32标准函数的自变量表达式里不能包含自定义函数；（ ）【答案】错误【解析】评卷人得分五、简答题33编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a1，a2，an，其中ai+1比ai大1，使得a1+a2+an=n。这样a1，a2，an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。Private Sub Comm

15、and1_Click() Dim i As Integer, j As Integer, sum As Integer Dim n As Integer n = Val(Text1.Text) sum = 0 List1.Clear For i = 1 To n j = i - 1 Do While sum = n j = j + 1 sum = sum + j Loop If sum = n Then List1.AddItem Str(i) & + . + & Str(j) & = & Str(n) End If sum = 0 Next iEnd Sub【答案】（1）For i = 1 To n - 1 （1分） （2）sum n （2分）【解析】