Question

VB程序设计期中测验

1. 下列数据（）是常量，（）是变量，并说明其数据类型
(1) VBName
(2) you
(3) “10/20/98”
(4) False
2. 根据条件写出VB表达式
(1) x和y中有一个不等于z
(2) 表示x是5或10的倍数
3. 写出下列函数和表达式的值
(1) str(123.45)
(2) instr(“AADHKDHKDHD”,”DH”)
(3) 2=5 and 6<3+4
(4) not 5-2<>3

4. 程序填空，实现下列各题所要求的功能：（每空填写一条语句、一个表达式或一个符号）
(1) 从键盘上输入任意X的值，求分段函数Y的值。
X X>0
Y= 0 X=0
|X| X<0

Private Sub Form_Click()
Dim x As Single, y As Single
x = InputBox("请输入变量X的值", "输入窗口")
If x > 0 Then
y = x
①
y = 0
Else
②
End If
Print "分段函数Y的值为："; y
End Sub

(2) 将通过InputBox对话框输入的一个数插入到递增的有序数列中，使得插入后的序列仍然有序
Private Sub Form_Click()
Dim a, i%, n%, m%
a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1)
n = UBound(a)
ReDim Preserve a(n + 1)
m = Val(InputBox("插入欲插入的数"))
For i = UBound(a) - 1 To 1 Step ③
If m > a(i) Then
④
If i = 0 Then a(i) = m
Else
⑤
Exit For
End If
Next i
For i = 0 To UBound(a)
Print a(i);
Next i
End Sub

Answer 1

这里好象不是代做题目的地方吧