第3章习题讨论 单选题 多选题(无) ←填空题(无 编程题 退出主页
主页 第3章 习题讨论 退出 单选题 多选题(无) 填空题(无) 编程题
一、单选题 6.设a="12",b="34",下列语句能显示“3412的是」c A. Print Val(b)-Val(a) B. Print b-a C Print b; Chr(45); a D Print Asc(a)+-+ Asc(b) 8.下列程序段执行后,输出结果是|D。 Dim a as string*4 a是定长4的字符串变量 a=Computer aS=Internet a与aS是同一个变量 Print a Print aS A Computer B Comp C Comp D. Inte Internet Internet Inte nte 主页
主页 一、单选题 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.假设Text是某一个文本框的名称,下列语句中正确的是 A. TextIHeight=600 B. Text print 123 C. TextI Caption="新标题 D.Tex1Name="文本框 A ★ 「主页
主页 14. 假设Text1是某一个文本框的名称，下列语句中正确的是 A. Text1.Height = 600 B. Text1.Print 123 C. Text1.Caption="新标题" D. Text1.Name="文本框" A
补充题 B 1.要在标签Labl上显示“计算结果”,可用 语句 A. Labl Caption=计算结果B. Labl Caption="计算结果 C.Lab1Name="计算结果D.Lab1Name=计算结果 2.下列语句序列的执行结果是 18 a= Space(1)+“学习”+Spae(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 主页
主页 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.在窗体上已建立两个文本框(Tex和Txt2)和一个命令按钮 ( Command1),并编写如下两个事件过程: Private Sub Commandl click TextI Text= Val(TextIText)+ Val(Text2Text) Text2 Text= Val(TextIText Text2Text) End sub Private Sub Form Load Text1.Text=1 Text2 Text =2 End sub 程序运行后,单击命令按钮 Command1,在两个文本框Text1 和Text2中显示的内容分别为(1)和(2) (1)A.0 B.1 D.3 (2)A.12 B.11 C.21 D.22 A 主页
主页 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
例32程序讨论 要求:设计程序,实现两个文本框内容的交换 若采用中间变量实现交换,程序代码如下:例32d Private Sub Command1 Click “交换”按钮 Dim tAs String, a As String, b As String a= Text1.Text 输入 b= Text2Text 从控件中取输入数据 Text a a= b 处理 b= t 使用临时单元变量t第个文本框 TextIText = a 第二个文本框12345 输出 Text2 Text b 把处理后的数 End sub 据传送给控件 Text2 主页
主页 例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 例3.2e Dim tAs String, a As string, b As string i a b b=t 奇怪??在两个文本框 Text Text= a 中显示都是空白 Text2 Text= b End sub 缺少“输入”。即没有从 文本框中取到要处理的数 据 主页
主页 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(2132f Dim t As String, a As String, b As string a= TextI Text b= Text2Text 好像在窗体上没 t=a 有看到处理结果! b b End sub 缺少“输出”。即没有把处理 后的内存变量内容传送给文本 框 主页
主页 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 Commandl_click[913.2g Dim tAs String, a As String, b As String a= Val(TextIText) b=val(Text2 Text) tab a 如果输入的是非 b 数字文本,结果 会怎样呢?? Text1.Text=a Text2 Text =b End sub 主页
主页 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.设计程序,从键盘输入字符时,在窗体上立即显示所键入 的字符和该字符的ASCI码,如图316所示。双击窗体时,清除 窗体上显示的内容。 a Form1 输入字符: A ASCI码为;65 编程第5题输入字符:BA8Cm1:6 输入字符: D ASCII吗为;68 Private Sub Form Keypress(KeyAscii As Integer) Show Print"输入字符:";Chr( KeyAscii,"ASCI码为;"; KeyAscii End Sub Private Sub Form DblClick CI End sub 主页
主页 编程及上机调试 第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题