visual basic pdf第一套
1.有如下程序段：
x=5
y=6
p=Not(x+y=11)
该程序段运行后，P的值是(1)False或0。
2.有如下程序段：
x=5
y=10
z=12
if x+y<=z Or y+z<=x Or x+z<=y then a="False"else a="True"
该程序段运行后，a的值为(1)True。
3.有如下程序段：
s=0
for i=1to5
s=s+i*i
next i
该程序段运行后，s的值为(1)55。
4.程序填空
随机产生10个0～100之间的整数，按从小到大的次序排序并输出。为了实现这一目标，完善下面
的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。
图12-3
sub command1_click()
const n=10
dim i,j,t as integer
dim a(1to10)as integer
for i=1to10
______(1)__a(i)=int(Rnd*101)________ next i
For i=1To n-1
For j=i+1To n
If______(2)_a(i)>a(j)_____Then
k=a(i):a(i)=a(j):a(j)=k
End If
Next j
Next i
For i=1To n
List1.AddItem Str(a(i))
Next i
第二套
1.有如下程序段：
x=5
y=6
t=x
x=y
y=t
该程序段运行后，y的值为(1)5。
2.有如下程序段：
x=5
y=-20
if not x>0then x=y-3else y=x+3
该程序段运行后，x的值为(1)5。
3.有如下程序段：
e=0:f=1
for i=1to3
e=e+f
f=f+e
next i
该程序段运行后，f的值为(1)13。
4.程序填空
有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问男人、女人、小孩各为多少人？
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
sub command1_click()
dim man,woman,child,s as integer
for man=1to15
for woman=1to23
child=_______(1)_30-woman-man_
s=30*man+20*woman+10*child
if___(2)s=500and child>0then
list1.additem str(man)+""+str(woman)+""+ str(child)
end if
next woman
next man
end sub
图12-7
第三套1.有如下程序段：
x=5
y=6
x=y
y=x
该程序段运行后，y的值为(1)6。
2.有如下程序段：
x=5
y=-20
if not x>0then x=y-3else y=x+3
该程序段运行后，y的值为(1)8。
3.有如下程序段：
k=1
for i=1to5
k=k*i
next i
该程序段运行后，k的值为(1)120。
4.程序填空
从键盘键入一个整数x，将x插入到一列有序数据：-5，3，4，12，20，45，70中，并使数据序列仍保持有序，试求出x应插入的位置。
为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
Dim a(1To8)As Integer
Dim n,I,j,x As Integer
Private Sub Command1_Click()
x=Val(Text2.Text)
If x>a(n)Then
________(1)___i=8_______
Else
i=1
Do While x>a(i)
_______(2)___i=i+1_______
Loop
End If
Text3.Text=Str(i)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13Then
n=n+1
a(n)=Val(Text1.Text)
List1.AddItem Str(a(n))
Text1.Text="":Text1.SetFocus
End If
End Sub
第四套
1.有如下程序段：
x=5
y=6
p=Not(x+y<>11)
该程序段运行后，P的值是(1)True或1。
2.有如下程序段：
x=5
y=10
z=12
If x+y>z And y+z>x And x+z>y Then a="True"Else a="False"
该程序段运行后，a的值为(1)“True”。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。