发布时间 : 星期六 文章2012VB练习题更新完毕开始阅读6373c31d6bd97f192279e984
2012VB理论练习题
(1) Private Sub Form_Load() (2) End Sub
Private Sub Command1_Click() Text1.Text = \End Sub
Private Sub Command2_Click() If n < 0 Then n = -n: Text1.Text = \ While n <> 0
Text1.Text = (3) (4) Wend End Sub
【供选择的答案】
(1) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As Byte (2) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True (3) A、n/10 & Text1.Text C、Text1.Text & n/10 (4) A、n = n \\ 10
D、Text1.Visible = False B、n Mod 10 & Text1.Text
D、Text1.Text & n Mod 10
B、n = n / 10
C、n = n Mod 10 D、n = n - 10
试题3
【程序】
Private Sub Command1_Click()
Dim a As Integer, b As Integer, x As Long, i As Integer On Error GoTo qq a = InputBox(\ b = InputBox(\ x = a
While Not (a Mod x = 0 And b Mod x = 0) x = x - 1 Wend Print x Exit Sub
qq: MsgBox \请重输\ Exit Sub
13
End Sub
【供选择的答案】
(1)单击Command1后,依次输入8、6后,显示: A、2 B、24 C、14 D、1 (2)单击Command1后,依次输入28、16后,显示: A、44 B、1 C、112 D、4 (3)单击Command1后,依次输入3、5后,显示:
A、15 B、1 C、8 D、125 (4)单击Command1后,依次输入4、32987后,显示: A、空白 B、1 C、0 D、请重输
试题4
【程序】 Dim m As Integer
Private Sub Command1_Click()
Dim a As Integer, i As Integer, f As Integer a = InputBox(\ f = 1: i = 2 Do While i <= a / 2
If a Mod i = 0 Then f = f + i i = i + 1 m = m + 1 Loop
Form1.Cls: Print f End Sub
【供选择的答案】
(1) 运行时第1次单击Command1输入7后,窗体上的显示结果为: A、1 B、3 C、5 D、7
(2) 运行时第2次单击Command1输入8后,窗体上的显示结果为: A、2 A、3
B、7 C、8 D、6 B、5 C、7 D、4
(3) 运行时第3次单击Command1输入9后,窗体上的显示结果为:
(4) 运行时3次单击Command1、并依次输入7、8、9后,变量m的当前值为: A、6 B、7 C、8 D、3
试题5
【程序】
Private Sub Form_click()
Dim n As Integer, i As Integer, k As Integer, j As Integer
14
2012VB理论练习题
Do
n = InputBox(\请输入1个1至9之间的整数\ Loop Until 0 < n And n < 10 k = 10: j = 1 For i = 1 To n
Print Space(k); String(j, Trim(Str(i))) If i <= n / 2 Then k = k - 1: j = j + 2 Else
k = k + 1: j = j - 2 End If Next i
End Sub
(1) 若运行时输入n值为2,窗体上的显示结果为: A、 1
B、 1 C、 1 D、 2
121 222 123 121 (2) 若运行时输入n值为3,窗体上的显示结果为: A、 1
B、 1 C、 1 D、 1
222 123 12 222 33333 12321 123 3 (3) 若运行时输入n值为4,窗体上的显示结果为: A、 1
B、 1 C、 1 D、 1
222 222 123 222 3 33333 12345 33333 444 444 1234567 4444444
试题17
【程序】
Private Sub Text1_KeyPress(K As Integer) If K < Asc(\ K = 0 Else
Label1.Caption = Chr(K) + Label1.Caption End If End Sub
【供选择的答案】
(1) Text1获得输入焦点后,依次按数字键1、3、5,Label1显示: A、135 B、531 C、9
D、5
(2) Text1获得输入焦点后,依次按数字键2、7、9,Label1显示:
15
A、972 B、279 C、297 A、-532
B、-235 C、532
D、18 D、235 D、521
(3) Text1获得输入焦点后,依次按 -、2、3、5键,Label1显示: (4) Text1获得输入焦点后,依次按 1、2、a、5键,Label1显示: A、空白 B、12a5 C、5a21
试题18
【程序说明】单击Command1后计算a?x+b?x+c的值并显示,界面设计以及运行时的显示分别如下图左、图右所示。要求在文本框中不可输入英文字母。
2
【程序】
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x As Single, y As Single a = Text1(0).Text: b = Text1(1).Text c = Text1(2).Text: x = Text1(3).Text y = a * x * x + b * x + c Label3.Caption = y End Sub
Private Sub Text1_ (1) (Index As Integer, (2) ) Select Case (3) Case \ K = 0
Case (4) K = 0 End Select End Sub
【供选择的答案】 (1) A、keyPress
B、change C、keyDown D、keyup B、Value C、Text() D、k As Integer B、Chr(K) C、Asc(K) D、Asc(KeyAscii)
C、\
D、'a'...'z'
(2) A、keyAscii As Integer
(3) A、Chr(KeyAscii)
(4) A、a To z B、'a' To 'z'
试题19
【程序】
Private Sub Form_Load()
16