1、余姚中学高二技术选考第一次限时训练信息技术命题：胡沛茹 审题：张婷一、单选题（每空2分，共36分）1、计算机能直接识别的算法表示形式是（ ）A、自然语言 B、流程图 C、伪代码 D、程序语言2在Visual Basic中，用变量code存储学生的借阅卡编码(如“CH20130036”)，则变量code的数据类型应说明为（ ）A、Integer B、Single C、String D、Date3下列能作为Visual Basic变量名的是（ ）Ab+7BModC3xDT_14下列Visual Basic表达式中计算结果为4的是（ ）AAbs(-4.2)BLen(a123)CSqr(4)DInt（
2、3.5）5在Visual Basic中，下列能产生一个1，60之间随机正整数的表达式是（ ）A、Rnd*60 B、1+Rnd*59 C、Int(Rnd*60) D、1+Int(Rnd*60)6、对实数型变量x，保留一位小数，第二位四舍五入的表达式为：（ ）A、int(x) B、int(x*10)/10 C、 int(x*10+0.5)/10 D、int(x*10)7在VB窗体中有一个对象，该对象的属性窗口如图所示，下列说法不正确的是( )AInterval为属性名B1680为属性值C该对象的名称为Timer1D根据“Timer1 Timer”可判断窗体名为Timer8程序运行界面如图所示。要求
3、在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为( )ACommand1_ClickBText1_ClickCForm_ClickDLabel2_Click9下列文件中属于工程文件的是（ ）A五子棋.frm B五子棋.exe C 五子棋.vbp D五子棋.caption10. 某算法的流程图如图所示，当输入a和b的值分别为3、6时，该算法的输出结果为( )A3B6C8D9来源:学,科,网11、某算法的流程图如下所示：该算法实现的功能是（ ）A. 求a，b的和B. 求a，b的差C. 交换a，b的值D.
4、 求a，b的较小值12、某Visual Basic程序如下：Private Sub Command1_Click() Dim a As String, b As String a = up b =look + +a Label1.Caption = bEnd Sub运行程序，单击命令按钮Command1后弹出如上图所示的出错信息提示，此时程序正执行的语句是（ ）A Dim a As String, b A s String Ba = up Cb = look + +a D Label1.Caption = b13、某VB程序的一个事件过程如下：Private Sub Command1_Clic
5、k()Dim a, b, h As SingleDim v As Double a = Val(Text1.Text)b= Val(Text2.Text)c= Val(Text3.Text)v = a * b * hlabel1.Caption = 长方体体积为： + Val(v)End Sub运行程序，单击命令按钮command1后弹出如图所示的出错提示，引起该错误的语句是：A、Dim a, b, h As Single B、a = Val(Text1.Text)C、v = a * b * h D、label1.Caption = 长方体体积为： + Val(v) 14、在绕地球做匀速圆周运
6、动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：，若用VB表达式来表示，正确的是( )AF=m(g-v*v/r)BF=m(g-v2/r)CF=m*(g-v2/r)DF=m*(g-v*2/r)15、“如果a,b中任意一个为0，那么y=y+1”，能实现该功能的VB语句是( )AIf a=0 And b=0 Then y=y+1BIf a*b=0 Then y=y+1CIf a=0,b=0 Then y=y+1DIf ab=0 Then y=y+116 、在条件语句If x=1 Then y=2中，下列说法正确是( )A. x=1和y=2均为赋值语句 B. x=1和y=2均为关系表达式
7、 C. x=1为关系表达式，y=2为赋值语句 D. x=1为赋值语句，y=2为关系表达式17、有如下的程序段： Private Sub Command1_Click()Dim a As String, b AsStringa = Text1.Textb = Text2.TextText3.Text = a + bEnd Sub运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示( )A23 Ba+b C 5 D 2+318、在包含20 个元素的数组a 中，寻找最小值的VB 程序段如下。其中变量min 用于储最小值： For i=2 To
8、 20 If a(i)=”0” and ch=”9 ” then 若是数字则数字计数器b加1 b=b+1 Else c=c+1 End if Text2.text=str(a)Text3.text=str(b)Text4.text=str(c)End sub 20、如图所示，这是打印九九乘法表的程序，请你完善程序。Private Sub Form_click()Dim i As Integer, j As IntegerFor i = 1 To For j = 1 To Print j; *; i; =; i * j; Next jPrint 换行Next iEnd Sub21.编写VB程序，
9、实现如下功能：在文本框Text1里输入一个字符串，单击“判断”按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串，如abcba或abccba都是回文字符串，abc不是回文字符串）。在文本框Text2里显示结果，回文字符串显示yes，否则显示no。运行效果如第21题1图所示。 第21题2图第21题1图（1）要使窗体Form1的标题改为“判断回文字符串”，可在其属性窗口（第21题-2图）中将_ _属性的属性值修改为“判断回文字符串”。（2）为实现上述功能，请在划线处填入合适代码或选项Private Sub Command1_Click()Dim st As StringDim i As Integer, j As IntegerDim flag As Boolean (填程序代码)j = Len(st)i = 1flag = TrueDo While flag And (i = j) If Mid(st, i, 1) = Mid(st, j, 1) Then i = i + 1 Else flag = FalseEnd If LoopIf Then Text2.Text = yesElse Text2.Text = noEnd IfEnd Sub
