相关试卷
-
1、以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
End If
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
-
2、在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text1中显示的内容为；文本框Text2中显示的内容为
-
3、若要设置文本框的滚动条生效，必须先把属性设置为True。
-
4、循环结构for I = 5.5 to 0 step -2的循环次数是
-
5、设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为。
-
6、同时具有列表框与文本框功能的控件是。
-
7、表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。
-
8、当Rem放在某语句后，必须用“”分隔，否则会出错。
-
9、在VB中，发生在对象上且能被对象识别的动作称为。
-
10、可以在中断状态下查询对象值的窗口是。
-
11、执行下面的程序段后，i的值为( )
X=5
For i = 1 TO 20 STEP 2
x=x+i^2
Next i
A、 21 B、 22 C、 1335 D、 50 -
12、以下程序段的输出结果是（ ）
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 -
13、已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（ ）
X=“ABCDEFG”
For i =4 to 1 setp -1
y=y+mid(x, i, 1)
Next i
A、ABCD B、DCBA C、DEFG D、GFED -
14、有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
运行程序后，X的值是（ ）
A、26 B、27 C、38 D、57 -
15、运行下面程序段时，若从键盘输入－5，则变量Y的值是（ ）
X=-5
A=val(inputbox(“请输入A的值：”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select
A、－5 B、－2 C、－4 D、－3 -
16、设a=2,b=3,c=4,d=5,下列表达式的值是 3>2*b OR a=c AND b<>c OR c>d （ ）A、1 B、True C、False D、-1
-
17、若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（ ）A、0 B、1 C、实时错误 D、编译错误
-
18、运行以下程序段后，输出结果为（ ）
X%=1/4
Y%=11/4
Print x%;y%
A、0.25 0.75 B、1 3 C、0 2 D、0 3 -
19、命令按钮command1的事件过程如下：
Private sub command1_click( )
X=inputbox(“输入：”,“输入整数”)
Msgbox “输入的数据是：”,, “输入数据：”+X
End sub
程序运行后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（ ）
A、X的值是数值型数据10 B、输入对话框的标题是“输入整数” C、信息框的标题是“输入数据：10” D、信息框中的显示是“输入的数据是：” -
20、命令按钮不支持的事件是（ ）A、Click B、DblClick C、GotFocus D、LostFocus