二级vb试卷-2003
（25）在窗体上画一个名称为Comman
d1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则
在窗体上输出的内容为
A）89 B）99 C）23 D
）77
（26）在窗体上画两个
别为Label1、Label2、Labe
显示"A"、"B"、"A*B"等文
Label3 显示A*B的计算结果
。当单击命令按钮"计算"时
Label3中。以下不能实现上
滚动条，名称分别为Hscroll1
l3、Label4、Label5、Label6，
字信息，标签Label1、Label2分
。如图所示。当移动滚动框时，
，对标签Label1、Label2中显示
述功能的事件过程是
、Hscroll2；六个标签，名称分
其中标签Label 4~ Label6分别
别显示其右侧的滚动条的数值，
在相应的标签中显示滚动条的值
的两个值求积，并将结果显示在
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.
Caption )*Val( Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HSc
roll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScr
oll2
End Sub
D）Private Sub Comma
nd1_Click()
Label3.Caption = HSc
roll1. Text * HScroll2.Text
End Sub
（27）在窗体上画一个
名称为Command1的命令按钮，然
后编写如下事件过程：
Private Sub Command1
_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then
m = m + n \ 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则
窗体上显示的内容是
A）15 B）18 C）21 D
）24
（28）在窗体上画一个名称为Text1
的文本框，并编写如下程序：
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Mou
Y As Single)
seUp(Button As Integer, Shif
t As Integer, X As Single,
（资料来源：东方教育网 http://ww
w.eastedu.com.cn)
Print "程序设计"
End Sub
Private Sub Text1_Ke
yDown(KeyCode As Integer, Sh
ift As Integer)
Print "Visual Basic"
;
End Sub
程序运行后，如果按"A"键，然后单
击窗体，则在窗体上显示的内容是
A）Visual Basic B）程序设计
C）A程序设计 D）Visual Basic程序
设计
（29）设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x
As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式
的值，这个表达式是
A）1+1/2+ 2/3+3/4+4/
5 B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+
1/4+1/5
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
|
