2010级《计算机基础实验(VB)》期末考试代码.docVIP

1、Private Sub Command1_Click() a = Label1.Captionb = aLabel1.Caption = Text1.TextText1.Text = bEnd Sub Private Sub Form_Load() Command1.Caption = 修改Label1.Caption = 标签框Text1.Text = 文本框 End Sub 2 、Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) x = -b / a Text3.Text = x End Sub Private Sub Command2_Click() Text1.Text =  Text2.Text =  Text3.Text = End Sub 3、Private Sub Form_Load() a = 此项操作正确吗？b = MsgBox(a, 36, 考试)If b = vbYes Then MsgBox 结果正确, , 考试EndElsec = MsgBox(重新操作, 48, 考试) If c = vbOK Then b = MsgBox(a, 36, 考试)End IfEnd Sub 4 、 Private Sub Command1_Click() Command1.Caption = Text1.TextLabel1.Caption = Text1.TextEnd Sub 5、Private Sub Command1_Click() Text4.Text = Val(Text1.Text) * Val(Text2.Text) * Val(Text3.Text)End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub 6、Private Sub Command1_Click() a = UCase(Text1.Text) 大写Text1.Text = aEnd Sub Private Sub Command2_Click()b = LCase(Text1.Text) 小写Text1.Text = bEnd Sub Private Sub Command3_Click()EndEnd Sub 7、Private Sub Form_Click() Dim i As Integer, sum As Integersum = 0For i = 100 To 200 If ((i Mod 2) = 1) And ((i Mod 3) 0) ThenPrint isum = sum + iEnd If Next iPrint sumEnd Sub 8、Private Sub Form_Click() Dim s As LongDim n As Integers = 1n = 1While s = 400000n = n + 1 s = s * nWendPrint n - 1End Sub 9、 窗口1 Private Sub Form_click()Form1.Visible = FalseForm2.ShowEnd Sub 窗口2 Private Sub Command1_Click()EndEnd Sub Private Sub Form_click()Form1.Visible = TrueEnd Sub 10 Private Sub Form_click() Dim i As Integer, j As Integer Me.AutoRedraw = TruePrint Tab(20); 九九乘法表PrintPrint ; For i = 1 To 9Print Tab(i * 5); i;NextPrintFor i = 1 To 9 Print i;For j = 1 To iPrint Tab(j * 5); i * j;Next jPrintNext i End Sub 难度：中（11--20） 11.Private Sub Command1_Click() If Option1.Value Then Text1.FontName = 宋体 If Option2.Value Then Text1.FontName = 黑体 If Option3.Value Then Text1.FontSize = 8 If Option4.Valu