VB程序MATCH_
word
word文档格式规范word作业纸小票打印word模板word简历模板免费word简历
_1716299430566_1教程 第三版 泷沛曾等著 实验B
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
[
方案
气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载
]
VB程序设计教程 第三版 泷沛曾等著
实验B 答案
第一题
Private Sub Command1_Click()
Dim f!, c!
f = Val(Text1)
c = 5 / 9 * (f - 32) Text2 = Format(c, "0.00")
End Sub
Private Sub Command2_Click()
Dim c!, f!
c = Val(Text2)
f = 9 / 5 * c + 32 Text1 = Format(f, "0.00")
End Sub
第二题
Private Sub Command1_Click()
Dim r!, s!
r = Val(Text1)
s = 3.14 * r ^ 2
Label2 = Format(s, "0.00")
End Sub
Private Sub Command2_Click()
Dim r!, d!
r = Val(Text1)
d = 2 * r * 3.14
Label3 = Format(d, "0.00")
End Sub
Private Sub Text1_lostfocus() If Not IsNumeric(Text1) Then
Text1 = MsgBox("输入有非数字字符,请重新输入")
Text1.SetFocus
End If
End Sub
第四题
Private Sub Command1_Click() Text1.Text = UCase(Text1)
Label1 = Len(Text1)
End Sub
Private Sub Text1_lostfocus() If IsNumeric(Text1) Then
Text1 = MsgBox("输入有非字母字符,请重新输入")
Text1.SetFocus
End If
End Sub
第五题
Private Sub Form_Click()
Randomize
Dim a As Integer, b As Integer, c As Integer, d As
Integer
d = Int(Rnd * 900 + 100)
Print "" & d
a = d \ 100
b = (d / 10) Mod 10
c = d Mod 10
Print "" & c & b & a
End Sub
第6题
Private Sub Form_click() label1=left(text1,3)
label2=mid(text1,4,4)
label3=right(text1,3)
end sub
第8 题
Private Sub Form_click()
Dim a!, b!, c!, d!, e! a = Val(InputBox("输入实数"))
b = a ^ 2
c = Sqr(a)
d = a ^ 3
e = a ^ (1 / 3) Print "平方"; Format(b, "0.000"); "平方根"; Format(c, "0.000"); "立方"; Format(d, "0.000"); "立方根";
Format(e, "0.000")
End Sub