vb编程题目答案1-9章.doc

目 录 第1~4章 2 第5章 控制结构程序设计 13 第6章 常用控件 42 第7章 数组 73 第9章 过程、菜单 75 第十一章文件 84 第十二章 图形设计 101 第1~4章 设计题A No . 1 No . 2 No . 3 Scollbar 要搭配multiline一起设置。 No . 4 passwordchar No . 5 No . 6 No . 7 No . 8 No . 9 先设置style属性 No . 10 先设置style属性 设计题BNo . 1 Private Sub Cd1_Click() L1.Visible = False End Sub Private Sub Cd2_Click() L1.Visible = True L1.Caption = 程序设计 End Sub No . 2 Private Sub Command1_Click() ‘Y=X^(1/3) n = Val(Text1.Text) Text2.Text = n ^ (1 / 3) End Sub No . 3 No . 4 Enabled属性 No .5 Visible属性 No . 6 No . 7 Private Sub Form_Click() Text1.SelStart = 0 Text1.SelLength = 8 Text2.Text = Text1.SelText End Sub No . 8 Ucase() No .9 No .10 Private Sub Text1_Change() Form1.Caption = Text1.Text Command1.Enabled = True End Sub No . 11 Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End Sub No . 12 Private Sub Command1_Click() Text2.Text = Text1.SelText End Sub No . 13 Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End Sub No . 14 No . 15 No . 16s No . 17 Private Sub Command1_Click() If Text1.Text = student Then Label1.Caption = 欢迎使用本系统 Else Label1.Caption = 口令出错，请重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub 第5章 控制结构程序设计 No . 1 No . 2 No . 3 No . 4 No . 5 Option Explicit Private Sub Command1_Click() 不得删除本行注释，方法1 Dim a As Integer, i As Integer, s As Long, sum As Long a = Val(Text1.Text) For i = 0 To 5 s = s + a * 10 ^ i sum = sum + s Next i Text2.Text = sum End Sub Private Sub Command2_Click() 不得删除本行注释,方法2 Dim a As Integer, a = Val(Text1.Text) Text2.Text = a*(1+11+111+1111+11111+111111) End Sub 选择结构编程 No . 5’ Private Sub Command1_Click() If Text1.Text = student Then Label2.Caption = 欢迎使用本系统 Else Label2.Caption = 口令错，请重新输入！ End If End Sub No . 6 Private Sub Command1_Click() Dim x As Double, y# x = Val(Text1.Text) If x 10 Then y = x - 1 ElseIf x 20 Then y