赤峰学院vb模拟试题库（含答案）

程序运行后，单击命令按钮，输出结果为:

2.

Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function

Private Sub Commandl_Click () Dim a As Integer a =2

For i =1 To 3 Print F(a) Next i End Sub

单击命令按钮后，程序的运行结果为：

四、程序设计（10分） 编写程序计算1+5+7+…+99。

答案 一、

选择题

BABAC ADABD DCDDC DBDBA DBDBC DABDC

二、填空题 1、 .vbp

2、Dir1_change Drive1_change File1.Path=Dir1.Path Dir1.Path=Drive1.Drive 3、25+32=57 4、ABCD HIJK 5、amaxx 三、写出下程序的运行结果

1． 12 2. 4

41

5 6

四、程序设计

Private Sub Form_Click() Dim s as integer,i as integer S=0

For i=1 to 99 step 2 S=s+i Next i Print s End Sub

42