- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- + 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在 VB 中，下列程序段执行后，变量 s 的值是( )。
s=1
For k="1" To 3
s=s+1
Next k
s=1
For k="1" To 3
s=s+1
Next k
| A．1 | B．3 | C．4 | D．6 |
假设变量a=4，b=5，执行a=a*b:b=a/b:a=a/b语句以后，a和b的值分别是（）
| A．5 和4 |
| B．4 和5 |
| C．20 和20 |
| D．4 和4 |
如图所示的流程图片断，该流程图执行过后，A、B的值分别为( )
| A．A是20，B是30 |
| B．A 是20，B是20 |
| C．A是30，B是30 |
| D．A是30，B是20 |
如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是( )
x=Text1.Text
p=0
For i=1 to Len(x)
If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是( )
| A．0 | B．1 | C．2 | D．11 |
下列各赋值语句，语法不正确的是（ ）。
| A．x+y=5 | B．number=15 |
| C．Label1.caption=time | D．length=x+y |
假设变量a=4，b=5，执行t=a+b:a=b-a:b=t语句以后，a和b的值分别是（ ）
| A．9 和9 | B．1 和9 | C．5 和1 | D．9 和1 |
以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text2中输出新数。
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
x=val(text1.text)
i=x \ 10
_____________ ①
y=j*10+i
Text1.Text = y ②
End Sub
（1）为了实现上述表达式的计算，①处应填写的是____________。
（2）程序中②处的表达式有误，应更正为____________。
Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
x=val(text1.text)
i=x \ 10
_____________ ①
y=j*10+i
Text1.Text = y ②
End Sub
（1）为了实现上述表达式的计算，①处应填写的是____________。
（2）程序中②处的表达式有误，应更正为____________。
下列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 |