2005年春浙江省高等学校计算机等级考试试卷(二级Visual BASIC).docVIP

2005年春浙江省高等学校 计算机等级考试试卷(二级Visual BASIC) 说明：⑴ 考生应将试题一至试题三的答案涂写在答题卡上，将试题四、试题五的答案填写在答卷上，否则作无效处理； ⑵ 请将你的准考证号的后四位填写在答卷右下角的指定位置内； ⑶ 考试时间为120分钟。 试题一、判断题（每小题1分，共10分1）VB的Double类型数据，可以精确表示其数值范围内的所有实数。 （2）事件过程可以由某个用户事件触发执行，它不能被其他过程调用。Shape1.FillStyle = vbSolid”和“Shape1.FillStyle = 0”作用相同。 （8）通用对话框的FileName属性，返回的是一个输入或选取的文件全名。 （9）当一个菜单项不可见时，其后的菜单项就会填充留下来的空位。 （10）在Open语句中用Append方式所打开的文件若不存在，则创建该文件。 试题二、单选题（每小题2分分） （11） A、B、C、 D、 （12）表达式 （12） A、B、C、 D、 （13） InStr(windowse, Mid(winnt,2,2)) 的返回值是 （13） 。 B、C、D、 （14）将文本框控件的 (14) 属性设置为False，可正常显示文本但不可编辑。 A、LockedB、EnabledC、D、） List1.Clear For i = 1 To 4: List1.AddItem i - 1, 0: Next i A、B、C、D、） A、、、、 （17） A、 vb B、gb(255,0,0) C、QBColor() D、H） A、B、.GetColor(a,b) C、.Pset(a,b) D、P1. （19）通用对话框可以通过对 （19） A、、C、D、 （20）编制一个对Single类型一维数组排序的Sub过程，该过程只能被本模块中其他过程所调用，其首句为 （20） A、(a() As Single,n As Integer) B、Public Sub f(a() As Single) C、P(a(n) As Single,n As Integer) D、Public (a() As Single,n As Integer) 试题三、程序填空题（每空2分） 【程序】 (21) Private Sub Form_Load() Timer1.Interval = 1000: Timer1.Enabled = False End Sub Private Sub Form_Click() Dim x As Single, n As Integer, i As Integer, t As Single s = 0: x = InputBox(x=): n = InputBox(n=) (22) For i = (23) t = t * x / i: s = s + t Next i (24) End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label1.Caption = s End Sub (21) A、s As Single B、Dim s As Single C、D、As Single (22) A、B、C、 D、A、2 To n + 1B、 To n C、 To n D、 To n + 1 (24) A、Timer1.Enabled = FalseB、Timer1.Enabled = C、.Enabled = False D、.Enabled = True 程序2、 【程序说明】 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、蓝色显示A、B、C公司的扇区填充色。 图1 程序2的界面设计 【程序】 Private Sub Command1_Click() 绘制圆饼图 Const PI = 3.141593 Dim a As Single, b As Single, c As Single, x As Single Picture1.Scale (-8, -8)-(8, 8)