VB教程第3章课堂讨论.ppt

文档介绍：第3章习题讨论
退出
单选题
多选题(无)
填空题(无)
编程题
一、单选题
6. 设a="12",b="34",下列语句能显示“34-12”的是_______。
A. Print Val(b)-Val(a) B. Print b-a
C. Print b;Chr(45);a D. Print Asc(a) + "-" + Asc(b)

8. 下列程序段执行后,输出结果是_______。
Dim a As String*4
a="Computer"
a$= ""
Print a
Print a$
A. Computer B. Comp C. Comp D. Inte
Inte Inte
C
D
′a是定长4 的字符串变量
′a与a$是同一个变量
14. 假设Text1是某一个文本框的名称,下列语句中正确的是
A. = 600 B. 123
C. ="新标题" D. ="文本框"
A
1. 要在标签Lab1上显示“计算结果”, 可用______ 语句。
A. = 计算结果 B. = "计算结果"
C. = "计算结果" D. = 计算结果
。
a = Space(1) + “学习”+ Space(2) + “高级语言"
b = Trim(a) + Chr(65)
Print Len(a + b)
,输出结果是 x = 3 : y = 2 : z = 1
x = y : y = z
z = x : x = y
Print x
B
补充题
18
1
4. 在窗体上已建立两个文本框(Text1和Text2)mand1),并编写如下两个事件过程:
Private mand1_Click()
= Val() + Val()
= Val( + )
End Sub
Private Sub Form_Load()
= "1"
= "2"
End Sub
程序运行后,mand1,在两个文本框Text1和Text2中显示的内容分别为___(1)___和___(2)___。
(1) B. 1 D. 3
(2) B. 11 D. 22
D
A

要求:设计程序,实现两个文本框内容的交换

若采用中间变量实现交换,程序代码如下:
Private mand1_Click() ′“交换”按钮
Dim t As String, a As String, b As String
a =
b =
t = a
a = b
b = t
= a
= b
End Sub
输出
把处理后的数
据传送给控件
处理
使用临时单元变量t
输入
从控件中取输入数据
Text1
Text2

Private mand1_Click()
Dim t As String, a As String, b As String
t = a
a = b
b = t
= a
= b
End Sub
缺少“输入”。即没有从文本框中取到要处理的数据
错例一:
奇怪??! 在两个文本框中显示都是空白!
想一想
错在哪?

Private mand1_Click()
Dim t As String, a As String, b As String
a =
b =
t = a
a = b
b = t
End Sub
错例二:
好像在窗体上没
有看到处理结果!
缺少“输出”。即没有把处理后的内存变量内容传送给文本框

Private mand1_Click()
Dim t As String, a As String, b As String
a = Val()
b = Val()
t = a
a = b
b = t
= a
Text