- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- + 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
产生[a,b](a,b 都是整数且a<b)范围内某一随机整数的VB 表达式是( )
| A．Int(Rnd ∗ a)+b | B．Int(Rnd ∗ b)+a |
| C．Int(Rnd ∗(b-a+1))+a | D．Int(Rnd ∗(b-a))+a |
实现某排序算法的部分VB 程序如下:
For i=1 To 6
k=i
For j=i+1 To 7
If a(j)<a(k) Then k=j
Next j
If i<>k Then
t=a(i):a(i)= a(k):a(k)= t
End If
Next i
在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是( )
For i=1 To 6
k=i
For j=i+1 To 7
If a(j)<a(k) Then k=j
Next j
If i<>k Then
t=a(i):a(i)= a(k):a(k)= t
End If
Next i
在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是( )
| A．10,11,41,75,12,63,85 | B．10,11,75,12,63,41,85 |
| C．10,11,12,75,63,41,85 | D．10,11,12,41,63,75,85 |
下列VB 程序用于求2个正整数(均小于10000)的最大公约数:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1 个正整数
y=Val(Text2.Text) ‘第2 个正整数
‘调用函数gcd
Text3.Text=Str(z)
End Sub
Function gcd(a As Integer,b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
方框中的正确语句是( )
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1 个正整数
y=Val(Text2.Text) ‘第2 个正整数
‘调用函数gcdText3.Text=Str(z)
End Sub
Function gcd(a As Integer,b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
方框中的正确语句是( )
| A．z=gcd | B．z=gcd(a,b) | C．z=gcd(x,y) | D．z=gcd x,y |
变量a 中存储了一个字符,能够正确判断该字符为数字字符“0”~ “9”的VB 表达式是( )
| A．Asc(a)>=0 Or Asc(a)<=9 | B．“0”<=a<=“9” |
| C．a<=“0”Or a>=“9” | D．a>=“0”and a<=“9” |
下列VB表达式的值等于15的是（ ）
| A．Val("13") + 2 |
| B．Len("13") + 2 |
| C．Abs(25) + 10 |
| D．Sqr(25) - 5 |
在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：
，若用VB表达式来表示，正确的是( )
，若用VB表达式来表示，正确的是( )| A．F=m(g-v*v/r) | B．F=m(g-v^2/r) |
| C．F=m*(g-v^2/r) | D．F=m*(g-v*2/r) |
有如下的程序段：
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示( )
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示( )
| A．23 | B．a+b | C．5 | D．2+3 |
“如果a,b中任意一个为0，那么y=y+1”，能实现该功能的VB语句是( )
| A．If a=0 And b=0 Then y=y+1 | B．If a*b=0 Then y=y+1 |
| C．If a=0,b=0 Then y=y+1 | D．If a∙b=0 Then y=y+1 |
在条件语句If x=1 Then y=2中，下列说法正确是( )
| A．x=1和y=2均为赋值语句 | B．x=1和y=2均为关系表达式 |
| C．x=1为关系表达式，y=2为赋值语句 | D．x=1为赋值语句，y=2为关系表达式 |