《上海市计算机VB二级题目B卷12页12页》由会员分享，可在线阅读，更多相关《上海市计算机VB二级题目B卷12页12页（12页珍藏版）》请在金锄头文库上搜索。
1、1. 表达式12 + 8 Mod 5 3 - 1中最先计算的是_。 A.12+8 B.8 MOD 5 C 5 3 D 3 -12. 设a=16，b=28，则以下表达式的值为“真”的是_。 A. a-b0 B. ab or当两操作数都为false时为false。其余情况都为true b0 C. Not (a0) D. a * b0 and x=1_。2 在VB6.0中，用_方法可以重定义坐标系。3 函数Val(24 and 57)的返回值是_。4 设 a=4,b=5,c=6,d=7 ，执行语句x=IIfIIF(表达式)，)当表达式为真输出表达式1，为假，输出表达式2(ab)And(cd),10,
2、20) 后， x 的值为_20_。5 若有一名为Menua的菜单项，为了在运行时使该菜单项不可见，应使用的语句是_ Menua.Visible = False _。6 在程序代码Text1.Text = Visual Basic中，表示对象的是_ Text1_。7 图像控件Image1要引用图片框控件Picture1中的图像，可使用语句Image1.Picture= _ Picture1.Picture _。程序填空a. 以下程序的功能是：随机产生10个两位数的正整数，保存在数组a中，现要求计算该数组中所有能被3整除元素的平均值。Dim a(1 To 10) As IntegerDim i%,
3、n%,s%For i = 1 To 10 a(i) = Int( (1) Rnd*90。Rnd为随机函数，答案为【0+90）+10 =【10,100）)+10 Print a(i);Next iPrints = 0n = 0For i = 1 To 10 If (2) = 0 Then s = s + a(i) n = n + 1 End IfNext iPrint (3) b. 以下程序的功能是：求2000以内满足如下条件的正整数对：彼此的全部约数之和(本身除外)与另一方相等。例如220与284:220的全部约数(除掉220本身)相加的和是: 1+2+4+5+10+11+20+22+44+5
4、5+110=284 284的全部约数(除掉284本身)相加的和是：1+2+4+71+142=220 程序的思想是：对正整数a，调用函数过程sy(a)求解约数之和b，再次调用函数过程sy(b)求出数b的约数之和t，按定义判断a,b是否满足条件。 sy函数过程求n的所有约数(除本身外)之和Function sy (n As Integer) As Integer Dim sum As Integer, i As Integer sum = 0 For i = 1 To （1） If n Mod i = 0 Then sum = （2） Next i （3） = sum End FunctionPr
5、ivate Sub Command1_Click() 求2000以内满足条件的正整数对 Dim a As Integer, b As Integer, t As Integer For a = 2 To 2000 b = sy(a) t = （4） If （5） And a b Then Print a, b Next aEnd Subc. 以下程序的功能是：在文本框Text1内输入身份证号码，单击命令按钮，检查所输入的号码是否为18位，若正确，从身份证号码中分离出出生日期和性别，计算当前年龄，按图示方式显示结果。Private Sub Command1_Click() Dim sfz, y,
6、 ss As String Dim m, d As Integer sfz = Text1.Text If （1） 18 Then MsgBox 位数不对,请重新输入！ Text1.Text = Text1.SetFocus End If y = Mid( （2） ) m = Val(Mid(sfz, 11, 2) d = Val(Mid(sfz, 13, 2) Text2.Text = y & 年 & m & 月 & d & 日出生 ss = Mid(sfz, 17, 1) If Val(ss) Mod 2 = 0 Then ss = 女 Else ss = 男 End If Label2.
7、Caption = （3） & ， 现年 & (Year(Date) - （4） ) & 岁End Sub操作题四、程序改错题(两小题，共10分，每处2分)启动工程文件C:ksexm2.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例。改错方法：不能修改或重新定义变量，不允许增加或删除语句，不可以改变语句次序，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.改错题1 以下程序的功能是：求数列2/1，3/2，5/3，8/5，前12项之和，并在Label内按每行4个显示数列项，最后显示其和。（数列的后一项的分子为前一项的分子与分母之和，后一项的分母为前一项的
8、分子） 程序中有3个错误，请调试改正。Sub Command1_Click() Dim s As Double, i As Integer, n As Single, m As Single lable1.Caption = n = 2 m = 1 s =1 For i = 1 To 12 Label1.Caption = Label1.Caption & n & / & m & + 在Label内显示数列项 If i Mod 4 = 0 Then 每行显示4项，vbCrLf回车换行 Label1.Caption = Label1.Caption & vbCrLf End If s = s +
9、 m / n t = m + n m = n n = t Next i Label1.Caption = Label1.Caption & = & Format(s, #.#)End Sub2.改错题2 本程序用字母AI在Picture1控件显示一个三角型（1个A，3个B，5个C，,17个I）。 程序中有2个错误，请调试改正。Sub Command2_Click() Dim n%, m% Picture1.Cls For n = 1 To 9 Picture1.Print Tab(20 - n); For m = 1 To n 产生一行上的字母 Picture1.Print n; Next m Picture1.Print Next nEnd Sub五、编程题编写一个完整的程序，要求如下：1在Form1窗体上放置2个文本框、1个购票命令按钮、2个列表框，其他说明性标签如样例。设置Text2为多行且有滚动条，列表框List1预设置平日普通票、平日优惠票、指定日普通票、指定日优惠票4项数据。按下表建立菜单。菜单标题菜单名称备注预售门票Menu1一级菜单读文件Menu11二级菜单-bar分隔线退出Menu13二级菜单预测Menu2一级菜单建立Form2窗体，窗体上放置时钟控件，预测、累计进场人数和返回3个按钮及3个标签。2
