- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- + 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在Visual Basic代码中,语句 Mytxt1.Text="kaikai" 中的 Text 是()。
A.对象名 | B.事件名 | C.属性名 | D.属性值 |
上面这段程序描述的是已知圆半径r,计算面积s。当运行时,输入半径1,输出的面积与实际结果出现了偏差,程序和运行结果如下所示。
导致出现此问题的语句编号是 ,应该改成 。

导致出现此问题的语句编号是 ,应该改成 。

表达式“ 5 + 2 =" 7" or not 7- 4 < 3 or 6 =" 6" and 7 <> 7 ”的值为:_________。
在Visual Basic中,下列属于字符串的是()。
A.Val("100") | B."int(100)" | C.sqr(100) | D.1/2^3 |
在一次学校的运动会上,高一女子100米决赛的成绩已出来,前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序,分别是(单位:秒)14.5,15.1,16.5,16.8,17.1,17.5,17.9,后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下:
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2.Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3.text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1.Text)
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

程序如下:
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()

x = Val(Text2.Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3.text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1.Text)
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus ‘准备在text1 接受下一个数据
End If
End Sub
有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是( )
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
A.3 | B.6 |
C.10 | D.18 |
以下程序实现倒计时功能,编辑界面如下。在Text1中输入数字后,点击“开始”按钮后,在Label1中显示从输入的值到0,每隔1秒中,数字减1。
根据题目要求,完成下面各题。

程序的代码代码,如下:
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t) ②
If t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到!"
Else
③ '数字t减1
End If
End Sub
(1)根据题目意思,应该把Timer1的Interval设置为 。
(2)在①处,应填上代码 。
(3)②所在行,运行时提示错误“未找到方法或者数据成员”,应改正为 。
(4)在③处,应填上代码 。
根据题目要求,完成下面各题。

程序的代码代码,如下:
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t) ②
If t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到!"
Else
③ '数字t减1
End If
End Sub
(1)根据题目意思,应该把Timer1的Interval设置为 。
(2)在①处,应填上代码 。
(3)②所在行,运行时提示错误“未找到方法或者数据成员”,应改正为 。
(4)在③处,应填上代码 。
在编程中经常要交换两个非零变量的值,以下方法中,能实现a、b两个数值型变量交换的是( )。(“:”号作用为分隔2句语句)
A.T="a" : a="b" : b=T |
B.a="b" : b=a |
C.a="a+b" : b="a-b" : a=a-b |
D.a="c" : c="b" : b=a |
关于以下流程图的描述中,正确的是( )。


A.执行后变量s的值一定小于20 |
B.循环体共计被执行了20次 |
C.该循环结构的类型为直到型循环 |
D.该算法的功能是:求2+5+8+11的和 |