相关试卷
-
1、以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
Private Sub Command1_Click() '添加按钮
If Len(Text1.Text) <> 0 Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '删除按钮
IfThen
MsgBox "先选择，再删除！"
Else
End If
End Sub
-
2、完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^()) *i
Next i
Print s
End Sub
-
3、下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
-
4、下面这段程序是从3个数中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“请输入X的值”))
Y=val(inputbox(“请输入Y的值”))
Z=val(inputbox(“请输入Z的值”))
If then
Min=y
Else
Min=x
End if
If z<min then
Print “最小值是：”;min
-
5、以下程序执行后将输出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
-
6、在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text1中显示的内容为；文本框Text2中显示的内容为
-
7、若要设置文本框的滚动条生效，必须先把属性设置为True。
-
8、循环结构for I = 5.5 to 0 step -2的循环次数是
-
9、设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为。
-
10、同时具有列表框与文本框功能的控件是。
-
11、表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。
-
12、当Rem放在某语句后，必须用“”分隔，否则会出错。
-
13、在VB中，发生在对象上且能被对象识别的动作称为。
-
14、可以在中断状态下查询对象值的窗口是。
-
15、执行下面的程序段后，i的值为( )
X=5
For i = 1 TO 20 STEP 2
x=x+i^2
Next i
A、 21 B、 22 C、 1335 D、 50 -
16、以下程序段的输出结果是（ ）
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 -
17、已知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 -
18、有如下程序段
X=2
For i = 1 to 10 step 2
x=x+i
Next i
运行程序后，X的值是（ ）
A、26 B、27 C、38 D、57 -
19、运行下面程序段时，若从键盘输入－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 -
20、设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