主页第 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$= "Internet"
Print a
Print a$
A,Computer B,Comp C,Comp D,Inte
Internet Internet Inte Inte
C
D
′a是定长 4 的字符串变量
′a与 a$是同一个变量主页
14,假设 Text1是某一个文本框的名称，下列语句中正确的是
A,Text1.Height = 600 B,Text1.Print 123
C,Text1.Caption="新标题 " D,Text1.Name="文本框 "
A
主页
1,要在标签 Lab1上显示“计算结果”,可用 ______ 语句。
A,Lab1.Caption = 计算结果 B,Lab1.Caption = "计算结果 "
C,Lab1.Name = "计算结果 " D,Lab1.Name = 计算结果
2．下列语句序列的执行结果是 __________。
a = Space(1) +,学习” + Space(2) +,高级语言 "
b = Trim(a) + Chr(65)
Print Len(a + b)
3．运行下列程序段后，输出结果是
x = 3,y = 2,z = 1
x = y,y = z
z = x,x = y
Print x
B
补充题
18
1
主页
4,在窗体上已建立两个文本框 (Text1和 Text2)和一个命令按钮
(Command1)，并编写如下两个事件过程：
Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) + Val(Text2.Text)
Text2.Text = Val(Text1.Text + Text2.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "1"
Text2.Text = "2"
End Sub
程序运行后，单击命令按钮 Command1，在两个文本框 Text1
和 Text2中显示的内容分别为 ___(1)___和 ___(2)___。
(1) A,0 B,1 C,2 D,3
(2) A,12 B,11 C,21 D,22
D
A
主页例 3.2程序讨论要求,设计程序，实现两个文本框内容的交换若采用中间变量实现交换，程序代码如下：
Private Sub Command1_Click() ′“交换”按钮
Dim t As String,a As String,b As String
a = Text1.Text
b = Text2.Text
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
输出把处理后的数据传送给控件处理使用临时单元变量 t
输入从控件中取输入数据
Text1
Text2
例 3.2d
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
缺少“输入”。即没有从文本框中取到要处理的数据错例一,
奇怪! 在两个文本框中显示都是空白！
想一想错在哪？
例 3.2e
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
a = Text1.Text
b = Text2.Text
t = a
a = b
b = t
End Sub
错例二：
好像在窗体上没有看到处理结果！
缺少“输出”。即没有把处理后的内存变量内容传送给文本框例 3.2f
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
a = Val(Text1.Text)
b = Val(Text2.Text)
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
错例三,想一想错在哪？
如果输入的是非数字文本，结果会怎样呢例 3.2g
主页编程及上机调试 第 5题讨论
5,设计程序，从键盘输入字符时，在窗体上立即显示所键入的字符和该字符的 ASCII码，如图 3.16所示。双击窗体时，清除窗体上显示的内容。
Private Sub Form_KeyPress(KeyAscii As Integer)
Show
Print "输入字符,"; ________ "ASCII码为 ;"; KeyAscii
End Sub
Private Sub Form_DblClick()
____
End Sub
Chr(KeyAscii),
Cls
编程第 5题主页
(1)分析,计算某年 y的元旦是星期几，可由以下式子得出：
F = y-1 +［ (y-1)/4］ -［ (y-1)/100］ +［ (y-1)/400］ + 1
其中［ ］表示求整
K = F Mod 7 F除以 7
y为某年公元年号，计算出 K为星期几
(2)创建应用程序的用户界面补充题 1 设计一个,万年历,程序，用来查看某年的元旦是星期几万年历主页
(3)设置对象属性
(4)编写程序代码功能要求：用户在,输入年份,文本框 (Text1)中输入某一年份，单击,查看,按钮时，则在,星期,文本框 (Text2)
中显示出星期几主页编写的,查看,按钮 (Command1)Click事件过程代码如下：
Private Sub Command1_Click()
Dim y As Integer,f As Integer,k As Intege
y = Val(Text1.Text) -1
f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1
k = f Mod 7?等价于 f - Int(f / 7) * 7 吗?
Text2.Text = k
End Sub
运行结果（见上图）
主页程序代码如下：
Private Sub Form_Click()
Print
Print Tab(15); "学号 "; Tab(26); "姓名 "; Tab(36); "成绩 "
Print Tab(14); String(27,"-") '输出 27个减号字符,-”
Print Tab(14); "20011001"; Tab(26); "张小三 "; Tab(36); 57
Print Tab(14); "20011003"; Tab(26); "李小四 "; Tab(36); 69
Print Tab(14); "20011012"; Tab(26); "马小五 "; Tab(36); 92
Print Tab(14); String(27,"-") '输出 27个减号字符,-”
End Sub
补充题 2 使用 Tab对输出进行定位 Tab定位主页运行结果
填空题 (无 )
编程题主页一、单选题
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$= "Internet"
Print a
Print a$
A,Computer B,Comp C,Comp D,Inte
Internet Internet Inte Inte
C
D
′a是定长 4 的字符串变量
′a与 a$是同一个变量主页
14,假设 Text1是某一个文本框的名称，下列语句中正确的是
A,Text1.Height = 600 B,Text1.Print 123
C,Text1.Caption="新标题 " D,Text1.Name="文本框 "
A
主页
1,要在标签 Lab1上显示“计算结果”,可用 ______ 语句。
A,Lab1.Caption = 计算结果 B,Lab1.Caption = "计算结果 "
C,Lab1.Name = "计算结果 " D,Lab1.Name = 计算结果
2．下列语句序列的执行结果是 __________。
a = Space(1) +,学习” + Space(2) +,高级语言 "
b = Trim(a) + Chr(65)
Print Len(a + b)
3．运行下列程序段后，输出结果是
x = 3,y = 2,z = 1
x = y,y = z
z = x,x = y
Print x
B
补充题
18
1
主页
4,在窗体上已建立两个文本框 (Text1和 Text2)和一个命令按钮
(Command1)，并编写如下两个事件过程：
Private Sub Command1_Click()
Text1.Text = Val(Text1.Text) + Val(Text2.Text)
Text2.Text = Val(Text1.Text + Text2.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "1"
Text2.Text = "2"
End Sub
程序运行后，单击命令按钮 Command1，在两个文本框 Text1
和 Text2中显示的内容分别为 ___(1)___和 ___(2)___。
(1) A,0 B,1 C,2 D,3
(2) A,12 B,11 C,21 D,22
D
A
主页例 3.2程序讨论要求,设计程序，实现两个文本框内容的交换若采用中间变量实现交换，程序代码如下：
Private Sub Command1_Click() ′“交换”按钮
Dim t As String,a As String,b As String
a = Text1.Text
b = Text2.Text
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
输出把处理后的数据传送给控件处理使用临时单元变量 t
输入从控件中取输入数据
Text1
Text2
例 3.2d
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
缺少“输入”。即没有从文本框中取到要处理的数据错例一,
奇怪! 在两个文本框中显示都是空白！
想一想错在哪？
例 3.2e
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
a = Text1.Text
b = Text2.Text
t = a
a = b
b = t
End Sub
错例二：
好像在窗体上没有看到处理结果！
缺少“输出”。即没有把处理后的内存变量内容传送给文本框例 3.2f
主页
Private Sub Command1_Click()
Dim t As String,a As String,b As String
a = Val(Text1.Text)
b = Val(Text2.Text)
t = a
a = b
b = t
Text1.Text = a
Text2.Text = b
End Sub
错例三,想一想错在哪？
如果输入的是非数字文本，结果会怎样呢例 3.2g
主页编程及上机调试 第 5题讨论
5,设计程序，从键盘输入字符时，在窗体上立即显示所键入的字符和该字符的 ASCII码，如图 3.16所示。双击窗体时，清除窗体上显示的内容。
Private Sub Form_KeyPress(KeyAscii As Integer)
Show
Print "输入字符,"; ________ "ASCII码为 ;"; KeyAscii
End Sub
Private Sub Form_DblClick()
____
End Sub
Chr(KeyAscii),
Cls
编程第 5题主页
(1)分析,计算某年 y的元旦是星期几，可由以下式子得出：
F = y-1 +［ (y-1)/4］ -［ (y-1)/100］ +［ (y-1)/400］ + 1
其中［ ］表示求整
K = F Mod 7 F除以 7
y为某年公元年号，计算出 K为星期几
(2)创建应用程序的用户界面补充题 1 设计一个,万年历,程序，用来查看某年的元旦是星期几万年历主页
(3)设置对象属性
(4)编写程序代码功能要求：用户在,输入年份,文本框 (Text1)中输入某一年份，单击,查看,按钮时，则在,星期,文本框 (Text2)
中显示出星期几主页编写的,查看,按钮 (Command1)Click事件过程代码如下：
Private Sub Command1_Click()
Dim y As Integer,f As Integer,k As Intege
y = Val(Text1.Text) -1
f = y + Int(y/4) – Int(y/100) + Int(y/400) + 1
k = f Mod 7?等价于 f - Int(f / 7) * 7 吗?
Text2.Text = k
End Sub
运行结果（见上图）
主页程序代码如下：
Private Sub Form_Click()
Print Tab(15); "学号 "; Tab(26); "姓名 "; Tab(36); "成绩 "
Print Tab(14); String(27,"-") '输出 27个减号字符,-”
Print Tab(14); "20011001"; Tab(26); "张小三 "; Tab(36); 57
Print Tab(14); "20011003"; Tab(26); "李小四 "; Tab(36); 69
Print Tab(14); "20011012"; Tab(26); "马小五 "; Tab(36); 92
Print Tab(14); String(27,"-") '输出 27个减号字符,-”
End Sub
补充题 2 使用 Tab对输出进行定位 Tab定位主页运行结果
