- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- + 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
下列语句中,正确的赋值语句的个数为( )。
m=x^3-x^2 -t=t*i b+1=2*b+2
32=k a=“a+2” p=((7*x+5)*x-9)/x+1
m=x^3-x^2 -t=t*i b+1=2*b+2
32=k a=“a+2” p=((7*x+5)*x-9)/x+1
A.1 | B.2 | C.3 | D.4 |
与数学表达式y=cosx+x3+3x对应的VB表达式是( )。
A. y=cos(x)+x^3+3*x | B.y=cosx+x^3+3x |
C. y=cos(x)+3^3+3x | D.不能表示 |
请认真阅读并分析下面Visual Basic程序代码,按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j = (1) To n
If a(i) < a(j) Then
k = a(i): (2) : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val( (3) )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
(1)程序中出现了text和list两种控件,其中list控件的中文名称是列表框,text控件的中文名称是 。
(2)在上述程序段中3处带序号的空白地方补充恰当的语句,完善程序。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j = (1) To n
If a(i) < a(j) Then
k = a(i): (2) : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val( (3) )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
(1)程序中出现了text和list两种控件,其中list控件的中文名称是列表框,text控件的中文名称是 。
(2)在上述程序段中3处带序号的空白地方补充恰当的语句,完善程序。
填空题:(共8分,每小题2分)。
(1) 本程序中,变量a、b 的数据类型都是___________(填写中、英文均可)。

(2)以上代码中,表示输出语句的是第____行。
(3)本程序中,代码a=a+b的含义是_____(选填Ⅰ或Ⅱ)。
选项:Ⅰ.把a的值赋给a+b
Ⅱ.把a加b的和赋给a
(4)若输入的两个数分别是10和20,则程序执行完毕,变量a的值是____,变量b的值是____。
(1) 本程序中,变量a、b 的数据类型都是___________(填写中、英文均可)。

(2)以上代码中,表示输出语句的是第____行。
(3)本程序中,代码a=a+b的含义是_____(选填Ⅰ或Ⅱ)。
选项:Ⅰ.把a的值赋给a+b
Ⅱ.把a加b的和赋给a
(4)若输入的两个数分别是10和20,则程序执行完毕,变量a的值是____,变量b的值是____。
判断点P(x,y)在圆内(圆的轨迹方程为:x2+y2=4)的VB表达式是_______。
A.x*x+y*y>4 | B.x*x+y*y<=4 | C.x<2 Or y<2 | D.x<2 And y<2 |
阅读分析以下VB程序,该程序采用的算法是_______。
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)
c =" 0"
Text2.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)
c =" 0"
A.解析 For i =" 1" To x If x Mod i = 0 Then | B.查找 c =" c" + 1[:Zxxk.Com] List1.AddItem Str(i) | C.排序 End If Next I | D.枚举 |
End Sub
在VB中,下列选项不能实现交换变量a和b的值的是_______。
A.a=a+b:b=a-b:a=a-b | B.t=b:b=a:a=t | C.t=a:a=b:b=t | D.a=b:b=a-b:b=a |