vb考题3(8)

问题71 \设有程序：

Private Sub Form_Click() a = Array(30, 70, 90) temp = a(0): a(0) = a(2) If a(0) ＞= 80 Then Print \优秀\

ElseIf a(0) ＞= 60 Then Print \及格\Else

Print \不及格\End If End Sub

其运行结果是：\ A.没有输出结果 B.不及格 C.及格 D.优秀

问题72

\下面是窗体单击事件中的代码： Private Sub Form_Click()

If \＜ \& 10 End Sub

程序运行后单击窗体，在窗体上输出的结果是：\ A.33 B.10 C.23 D.2310

问题73

\下面是窗体单击事件中的代码： Private Sub Form_Click()

If \＞ \+10 End Sub

程序运行后单击窗体，在窗体上输出的结果是：\ A.10 B.23 C.2310 D.33

问题74

\下面是窗体单击事件中的代码：

Private Sub Form_Click()

If \＜ \ print \End Sub

程序运行后单击窗体，在窗体上输出的结果是：\ A.abc2002 ok

B.abc2002 C.出错

D.abc2002ok

问题75

\下面是窗体单击事件中的代码： Private Sub Form_Click()

If \＜ \ print \End Sub

程序运行后单击窗体，在窗体上输出的结果是：\ A.ok B.2002 C.abc2002 D.出错

问题76

\假定有以下循环结构 Do Until条件 循环体 Loop

则正确的描述是\

A.\如果\条件\是一个为0的常数，则一次循环体也不执行\ B.\如果\条件\是一个为0的常数，则无限次执行循环体\ C.\如果\条件\是一个不为0的常数，则至少执行一次循环体\ D.\不论\条件\是否为\真\，至少要执行一次循环体\

问题77

\假定有以下程序段 For I = 1 To 3

For j = 5 To 1 Step - 1 Print I * j Next j, i

则语句Print i*j的执行次数是\ A.15 B.16 C.17

D.18

问题78

\以下程序段的输出结果为 x=1 y=4

Do Until y ＞ 4 x=x*y y=y+1 Loop Print x\ A.1 B.4 C.8 D.20

问题79

\执行下面的程序段后，x的值为: x=5

For i = 1 To 20 Step 2 x=x+i\\5 Next I\ A.21 B.22 C.23 D.24

问题80

\程序输出结果是: For i= 1 To4 x=4

For j = 1 To 3 x=3

For k= 1 To 2 x=x+6 Next k Nextj Next I Print x\ A.7 B.15 C.157 D.538

问题81

\阅读下面的程序段： For i=1 To 3 For j = 1 To i For k =j To 3 a=a+1 Next k Next j Next i

执行上面的三重循环后，a的值为\ A.3 B.9 C.14 D.21

问题82

\在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= \ Text1.SetFocus For i=1 To 10 Sum = Sum + i Next i

Text1.Text = Sum End Sub

上述程序的运行结果是\ A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错

D.在文本框Text1中输出不定值

问题83

\ x=0

Do While x ＜ 50 x=(x+2)*(x+3) n=n+1 Loop

Text1.Text = Str(n) Text2.Text = Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为\ A.1和0 B.2和72

D.4和168

问题84

\程序运行后，如果单击命令按钮，则在窗体上显示的内容是 Private Sub Command1_Click() For I= 1 To 4 For J = 0 To I

Print Chr$(65 + I); Next J Print Next I End Sub\ A.\CCC DDDD EEEEE \ B.\BB CCC DDDD \ C.\CC DDD EEEE \ D.\BBB CCCC DDDDD \

问题85

\程序运行后,窗体上显示的是 Dim a(10, 10) As Integer For i= 1 To3 For j = 1 To 3

a(I, j) = (I - 1) * 3 +j Print a(I, j); Next j Print Next I\ A.\

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb考题3(8)在线全文阅读。