VB程序实验报告
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB程序设计》实验报告
实验二顺序结构程序设计
Text3 = Len(Text1)
Text4 = Len(Trim(Text1))
End Sub
Private Sub Form_Load()
End Sub
计算机技术基础(VB)实验报告——实验二
四、思考并回答1.写出实验中的代码:⑴2-1a 代码是:Private Sub Command1_Click() Text2.Text = 2 * 3.14 * Val(Text1) End Sub
Private Sub Command2_Click() Text3.Text = 3.14 * Val(Text1) ^ 2 End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
i = MsgBox("输入了非法字符!", 64, "提示") Text1 = ""
Text1.SetFocus
End If Text2 = ""
Text3 = ""
End Sub
⑵2-1b 代码是:
Private Sub Command1_Click()
Const pi = 3.14159
Dim r As Single, l As Single, s As Single r = InputBox(" 请输入半径:", " 输入半径") s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 & r
Label3 = Label3 + Str(l) label4 = label4 + Str(s)
End Sub
2.2-2a 代码是:
Private Sub Command1_Click() Text1.ForeColor = RGB(255, 0, 0) Text2.ForeColor = RGB(255, 0, 0) Text2.PasswordChar = ""
Text1 = (Text1 = "2006000")
Text2 = (Text2 = "TJin1234") End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_GotFocus()
Text1 = ""
Text1.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub Text2_GotFocus()
Text2 = ""
Text2.ForeColor = RGB(0, 0, 0) Text2.PasswordChar = "*" End Sub
3.2-2b 代码是:
Private Sub Command1_Click()
Text2 = UCase(Text1)
End Sub
Private Sub Command2_Click()
Text2 = LCase(Text1)
End Sub
Private Sub Command3_Click()
Text3 = Len(Text1)
Text4 = Len(Trim(Text1))
End Sub
Private Sub Form_Load()
End Sub
4. 2-2c 代码是:
5. 2-3a 代码是:
Private Sub Command1_Click() Dim x%, y%
x = Text1: y = Text2
x = y Text3 = x Text4 = y End Sub
Private Sub Command2_Click() Dim x%, y%
x = Text1: y = Text2 y = x
Text3 = x Text4 = y
End Sub
Private Sub Command3_Click() Dim x%, y%
x = Text1: y = Text2
x = x + 1 Text3 = x Text4 = y End Sub
Private Sub Command4_Click() Dim x%, y%
x = Text1: y = Text2
x = x + y Text3 = x Text4 = y End Sub
Private Sub Command5_Click() Dim x%, y%
x = Text1: y = Text2
x = y: y = x Text3 = x Text4 = y End Sub
Private Sub Command6_Click() Dim x%, y%, t%
x = Text1: y = Text2 t = x: x = y: y = t Text3 = x Text4 = y Text5 = t End Sub Private Sub Form_Load() End Sub
6. 2-3b 代码是:
Private Sub Command1_Click() Dim r1!, r2!, r3!, X!
r1 = Val(Text2): r2 = Val(Text3): r3 = Val(Text4) X = 1 / (1 / r1 + 1 / r2 + 1 / r3) Label5 = "计算结果:" & X