《VisualBasic程序设计(6月2号修改》科学技术.docVIP

 PAGE 33 《Visual Basic程序设计》科学技术出版社 习题一 一、填空题 1、“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等 2、三；设计（Design）模式、运行模式（Run）和中断（Break）模式 3、工程1；1；Form1 4、选择菜单“视图|立即窗口”即可打开“立即”窗口；它是Visual Basic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。 5、查看代码、查看对象；“查看对象”按钮；“查看代码”按钮 二、选择题 1.B 2.C 3.D 4.B 5.C 6.B 7.D 三、程序设计题 1. Private Sub Command1_Click() Text1.Text = 欢迎使用VB！ End Sub Private Sub Command2_Click() Text1.Text = End Sub Private Sub Command3_Click() End End Sub 2. Private Sub Command1_Click() Label1.Caption = 你好，张三！ Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 习题二 一、填空题 1. 0 2. “除数为零”错误 3. Long 4. False 5. Const PI = 3.14159 6. True 7. 4 8. 4 9. Dim Mystr As String*10 10. True 11. 1=x And x=5 二、程序设计题 1. Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub 2. Private Sub Command1_Click() Label1.Caption = 百位数： + Left(Text1.Text, 1) + 十位数： + Mid(Text1.Text, 2, 1) + 个位数： + Right(Text1.Text, 1) End Sub 3. Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a + b Label1.Caption = + Text3.Text = c End Sub Private Sub Command2_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a - b Label1.Caption = - Text3.Text = c End Sub Private Sub Command3_Click() Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = a * b Label1.Caption = * Text3.Text = c End