VB教程第3章顺序结构程序设计课堂讨论
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
缺少"输入" 缺少"输入".即没有从 文本框中取到要处理的数 据
例3.2e
想一想 错在哪? 错在哪?
主页
错例三: 错例三:
例3.2f Private Sub Command1_Click() Dim t As Integer, a As Integer, b As Integer a = Text1.Text 数据类型不对! 数据类型不对! b = Text2.Text t=a 好像在窗体上没 a=b 有看到处理结果! 有看到处理结果! b=t End Sub
主页
补充题
B 1. 要在标签 要在标签Lab1上显示"计算结果", 可用 ______ 语句. 上显示" 语句. 上显示 计算结果" A. Lab1.Caption = 计算结果 B. Lab1.Caption = "计算结果 计算结果" 计算结果 C. = "计算结果 计算结果" D. = 计算结果 计算结果 18 2.下列语句序列的执行结果是__________. .下列语句序列的执行结果是 . a = Space(1) + "学习 + Space(2) + "高级语言 学习" 高级语言" 学习 高级语言 b = Trim(a) + Chr(65) Print Len(a + b) 3.运行下列程序段后,输出结果是 1 .运行下列程序段后, x=3:y=2:z=1 x=y:y=z z=x:x=y Print x
例3.2d
′"交换"按钮 交换" 交换
a = Text1.Text b Text1.Text = Text2.Text = Text2.Text t = a Text2.Text = t a = b b = t Text1.Text = a End Sub Text2.Text = b t = Text1.Text
第3章 习题讨论
单选题 编程题
退出
主页
一,单选题
6. 设a="12",b="34",下列语句能显示"34-12"的是 C 的是_______. , ,下列语句能显示" 的是 . A. Print Val(b)-Val(a) B. Print b-a C. Print b;Chr(45);a D. Print Asc(a) + "-" + Asc(b) D 补充题: 下列程序段执行后,输出结果是_______. 补充题 下列程序段执行后,输出结果是 . Dim a As String*4 ′a是定长 的字符串变量 是定长4 是定长 a="Computer" a$= "Internet" ′a与a$是同一个变量 与 是同一个变量 Print a Print a$ A. Computer B. Comp C. Comp D. Inte Internet Internet Inte Inte
主页
错例二: 错例二:
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
Text2
主页
错例一: 错例一:
要求:设计程序,实现两个文本框内容的交换 要求:设计程序,
若采用中间变量实现交换,程序代码如下: 若采用中间变量实现交换,程序代码如下: Private Sub Command1_Click() ′"交换"按钮 交换" 交换 Dim t As String, a As String, b As String Text1.Text = a 应为: 应为: a=Text1.Text Text2.Text = b b=Text2.Text t=a 奇怪??! 我刚在两个文本框中 奇怪 两者结果是不同的 输入的内容怎么不见了! 输入的内容怎么不见了! a=b b=t Text1.Text = a Text2.Text = b End Sub
缺少"输出" 缺少"输出".即没有把处理 后的内存变量内容传送给文本 框
主页
错例四: 错例四:
Private Sub Command1_Click() 例3.2g Dim t As String, a As String, b As String a = Val(Text1.Text) 如果输入的是非数字文本, 如果输入的是非数字文本,如 b = Val(Text2.Text) "new",结果会怎样呢 ,结果会怎样呢??? t=a a=b b=t Text1.Text = a Text2.Text = b End Sub 此处不能使用Val函数 使用函数一定要恰当 使用函数一定要恰当) 此处不能使用 函数 (使用函数一定要恰当
Val函数将数字字符串转换为数值 函数将数字字符串转换为数值 如 Val("1123")的值为123 的值为
Val("ABC")的值为 的值为0 的值为
想一想 错在哪? 错在哪?
主页
编程及上机调试
第4题讨论
4. 设计程序,从键盘输入字符时,在窗体上立即显示所键入 设计程序,从键盘输入字符时,
所示.双击窗体时, 的字符和该字符的ASCII码,如图3.16所示.双击窗体时,清除 窗体上显示的内容. 窗体上显示的内容.
编程第4题 编程第 题
Private Sub Form_KeyPress(KeyAscii As Integer) Show Print "输入字符:"; Chr(KeyAscii), "ASCII码为 KeyAscii 输入字符: ________ 码为;"; 输入字符 码为 End Sub Private Sub Form_DblClick() ____ Cls End Sub
主页
在窗体上已建立两个文本框(Text1和Text2)和一个命令按钮 4. 在窗体上已建立两个文本框 和 和一个命令按钮 (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 中显示的内容分别为___(1)___和___(2)___. 和Text2中显示的内容分别为 中显示的内容分别为 和 . D (1) A.0 B. 1 C.2 D. 3 . . (2) A.32 B. 11 C.21 D. 22 . . A
主页
例3.2 程序讨论
要求:设计程序,实现两个文本框内容的交换 要求:设计程序,
若采用中间变量实现交换,程序代码如下: 若采用中间变量实现交换,程序代码如下: Private Sub Command1_Click() Dim t As String
另一编法: 另一编法: 利用内存变量 ′直接在文本框中"交换"数据 直接在文本框中" 直接在文本框中 交换" Dim t As1. 假设 假设Text1是某一个文本框的名称,下列语句中正确的是 是某一个文本框的名称, 是某一个文本框的名称 A. Text1.Height = 600 B. Text1.Print 123 C. Text1.Caption="新标题 新标题" D. ="文本框 文本框" 新标题 文本框 A
例3.2e
想一想 错在哪? 错在哪?
主页
错例三: 错例三:
例3.2f Private Sub Command1_Click() Dim t As Integer, a As Integer, b As Integer a = Text1.Text 数据类型不对! 数据类型不对! b = Text2.Text t=a 好像在窗体上没 a=b 有看到处理结果! 有看到处理结果! b=t End Sub
主页
补充题
B 1. 要在标签 要在标签Lab1上显示"计算结果", 可用 ______ 语句. 上显示" 语句. 上显示 计算结果" A. Lab1.Caption = 计算结果 B. Lab1.Caption = "计算结果 计算结果" 计算结果 C. = "计算结果 计算结果" D. = 计算结果 计算结果 18 2.下列语句序列的执行结果是__________. .下列语句序列的执行结果是 . a = Space(1) + "学习 + Space(2) + "高级语言 学习" 高级语言" 学习 高级语言 b = Trim(a) + Chr(65) Print Len(a + b) 3.运行下列程序段后,输出结果是 1 .运行下列程序段后, x=3:y=2:z=1 x=y:y=z z=x:x=y Print x
例3.2d
′"交换"按钮 交换" 交换
a = Text1.Text b Text1.Text = Text2.Text = Text2.Text t = a Text2.Text = t a = b b = t Text1.Text = a End Sub Text2.Text = b t = Text1.Text
第3章 习题讨论
单选题 编程题
退出
主页
一,单选题
6. 设a="12",b="34",下列语句能显示"34-12"的是 C 的是_______. , ,下列语句能显示" 的是 . A. Print Val(b)-Val(a) B. Print b-a C. Print b;Chr(45);a D. Print Asc(a) + "-" + Asc(b) D 补充题: 下列程序段执行后,输出结果是_______. 补充题 下列程序段执行后,输出结果是 . Dim a As String*4 ′a是定长 的字符串变量 是定长4 是定长 a="Computer" a$= "Internet" ′a与a$是同一个变量 与 是同一个变量 Print a Print a$ A. Computer B. Comp C. Comp D. Inte Internet Internet Inte Inte
主页
错例二: 错例二:
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
Text2
主页
错例一: 错例一:
要求:设计程序,实现两个文本框内容的交换 要求:设计程序,
若采用中间变量实现交换,程序代码如下: 若采用中间变量实现交换,程序代码如下: Private Sub Command1_Click() ′"交换"按钮 交换" 交换 Dim t As String, a As String, b As String Text1.Text = a 应为: 应为: a=Text1.Text Text2.Text = b b=Text2.Text t=a 奇怪??! 我刚在两个文本框中 奇怪 两者结果是不同的 输入的内容怎么不见了! 输入的内容怎么不见了! a=b b=t Text1.Text = a Text2.Text = b End Sub
缺少"输出" 缺少"输出".即没有把处理 后的内存变量内容传送给文本 框
主页
错例四: 错例四:
Private Sub Command1_Click() 例3.2g Dim t As String, a As String, b As String a = Val(Text1.Text) 如果输入的是非数字文本, 如果输入的是非数字文本,如 b = Val(Text2.Text) "new",结果会怎样呢 ,结果会怎样呢??? t=a a=b b=t Text1.Text = a Text2.Text = b End Sub 此处不能使用Val函数 使用函数一定要恰当 使用函数一定要恰当) 此处不能使用 函数 (使用函数一定要恰当
Val函数将数字字符串转换为数值 函数将数字字符串转换为数值 如 Val("1123")的值为123 的值为
Val("ABC")的值为 的值为0 的值为
想一想 错在哪? 错在哪?
主页
编程及上机调试
第4题讨论
4. 设计程序,从键盘输入字符时,在窗体上立即显示所键入 设计程序,从键盘输入字符时,
所示.双击窗体时, 的字符和该字符的ASCII码,如图3.16所示.双击窗体时,清除 窗体上显示的内容. 窗体上显示的内容.
编程第4题 编程第 题
Private Sub Form_KeyPress(KeyAscii As Integer) Show Print "输入字符:"; Chr(KeyAscii), "ASCII码为 KeyAscii 输入字符: ________ 码为;"; 输入字符 码为 End Sub Private Sub Form_DblClick() ____ Cls End Sub
主页
在窗体上已建立两个文本框(Text1和Text2)和一个命令按钮 4. 在窗体上已建立两个文本框 和 和一个命令按钮 (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 中显示的内容分别为___(1)___和___(2)___. 和Text2中显示的内容分别为 中显示的内容分别为 和 . D (1) A.0 B. 1 C.2 D. 3 . . (2) A.32 B. 11 C.21 D. 22 . . A
主页
例3.2 程序讨论
要求:设计程序,实现两个文本框内容的交换 要求:设计程序,
若采用中间变量实现交换,程序代码如下: 若采用中间变量实现交换,程序代码如下: Private Sub Command1_Click() Dim t As String
另一编法: 另一编法: 利用内存变量 ′直接在文本框中"交换"数据 直接在文本框中" 直接在文本框中 交换" Dim t As1. 假设 假设Text1是某一个文本框的名称,下列语句中正确的是 是某一个文本框的名称, 是某一个文本框的名称 A. Text1.Height = 600 B. Text1.Print 123 C. Text1.Caption="新标题 新标题" D. ="文本框 文本框" 新标题 文本框 A