《vb编程题目答案1-9章》由会员分享，可在线阅读，更多相关《vb编程题目答案1-9章（84页珍藏版）》请在金锄头文库上搜索。
1、诚毅学院 计算机教研室主编目 录第14章2第5章 控制结构程序设计13第6章 常用控件42第7章数组73第9章 过程、菜单75第十一章文件84第十二章 图形设计1011第14章设计题ANo . 1No . 2No . 3Scollbar 要搭配multiline一起设置。No . 4passwordcharNo . 5No . 6No . 7No . 8No . 9先设置style属性No . 10先设置style属性设计题BNo . 1Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visib
2、le = TrueL1.Caption = 程序设计End SubNo . 2Private Sub Command1_Click() Y=X(1/3)n = Val(Text1.Text)Text2.Text = n (1 / 3)End SubNo . 3No . 4Enabled属性No .5Visible属性No . 6No . 7Private Sub Form_Click()Text1.SelStart = 0Text1.SelLength = 8Text2.Text = Text1.SelTextEnd SubNo . 8Ucase()No .9No .10Private Sub
3、 Text1_Change()Form1.Caption = Text1.TextCommand1.Enabled = TrueEnd SubNo . 11Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)Text1.SetFocusEnd SubNo . 12Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubNo . 13Private Sub Text1_Click()Text1.SelStart = 0Text1.S
4、elLength = Len(Text1.Text)Text1.SetFocusEnd SubNo . 14No . 15No . 16sNo . 17Private Sub Command1_Click()If Text1.Text = student Then Label1.Caption = 欢迎使用本系统Else Label1.Caption = 口令出错，请重新输入 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocusEnd IfEnd Sub第5章 控制结构程序设计No . 1No . 2No . 3
5、No . 4No . 5Option ExplicitPrivate 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 = sumEnd SubPrivate Sub Command2_Click() 不得删除本行注释,方法2 Dim a As Integer, a = Val(Text1.Text)
6、Text2.Text = a*(1+11+111+1111+11111+111111)End Sub选择结构编程No . 5Private Sub Command1_Click()If Text1.Text = student Then Label2.Caption = 欢迎使用本系统Else Label2.Caption = 口令错，请重新输入！End IfEnd SubNo . 6Private Sub Command1_Click()Dim x As Double, y#x = Val(Text1.Text)If x 10 Then y = x - 1ElseIf x 20 Then y
7、 = 2 * x - 1Else y = 3 * x - 1End IfText2.Text = yEnd SubNo . 7Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Or b = 0 Or c c And b + c a And a + c b Then Text4.Text = 能Else Text4.Text = 否End IfEnd SubNo . 8Priva
8、te Sub Command1_Click()Dim max As Integer, min As Integermax = Val(Text1.Text)min = maxIf Val(Text2.Text) max Then max = Val(Text2.Text)If Val(Text2.Text) max Then max = Val(Text3.Text)If Val(Text3.Text) min Then min = Val(Text3.Text)Text4.Text = maxText5.Text = minEnd SubNo . 9Private Sub Command1_
9、Click()Dim a As Integera = Val(Text1.Text)If a Mod 4 = 0 And a Mod 100 0 Or a Mod 400 = 0 ThenLabel2.Caption = 闰年ElseLabel2.Caption = 非闰年End IfEnd SubNo . 10Private Sub Command1_Click() 不得删除本行注释 Dim n As Integer n = Val(Text1.Text) If n Mod 4 = 0 And n Mod 100 0 Or n Mod 400 = 0 Then Text2.Text = 36
10、6 Else Text2.Text = 365 End IfEnd SubNo . 11Private Sub Command1_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()If Combo1.ListIndex = 0 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text)ElseIf Combo1.ListIndex = 1 Then Text3.Text = Val(Text1.Text) - Val(Text2.Text)
11、ElseIf Combo1.ListIndex = 2 Then Text3.Text = Val(Text1.Text) * Val(Text2.Text)End IfEnd Sub#Private Sub Form_Load() Combo1.ListIndex = 0End Sub#No . 11Private Sub Command1_Click()Dim strc as stringstrC = Text1.TextIf Ucase(strC) =A And Ucase (strC) =0 And strC =9 ThenLabel1.caption= 是数字字符 ElseLabel
12、1.caption= 其他字符 End IfEnd Sub循环结构编程No . 12Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)For i = 1 To aSum = Sum + i 2NextText2.Text = SumEnd SubNo . 13No . 14Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 200 If i Mod 3 = 0 And i Mod 7 = 0 Then Text1.Text = Text1.Text & & i End IfNextEnd SubNo . 15Private Sub Command1_Click()Dim i As Integer ,n as integer,sum as integerN=val(text1.text)For i = 1 To n If i Mod 3 = 0 Then sum = sum+i End IfNextText2.text=sumEnd SubNo . 16Private Sub Command1_Click()Dim i As Int
