VB程序设计基础 申石磊 答案(6)

a = InputBox(\请输入圆柱体的半径\ b = InputBox(\请输入圆柱体的高度\ c = volume(a, b)

Print \圆柱体的体积为\ End Sub 标准模块

Function volume(r As Single, h As Single) As Single volume = 3.14 * r * r * h End Function 6-3

Private Sub Form_Click() Dim y%

y = InputBox(\请输入一个整数\ Call week(y) End Sub 6-4

窗体模块

Private Sub Form_click() Dim a As Integer, b As String a = InputBox(\请输入一个整数\ b = week(a) Print b

标准模块

Function week(s As Integer) As String Select Case s Case 0

week = \星期日\ Case 1

week = \星期一\ Case 2

week = \星期二\ Case 3

week = \星期三\ Case 4

week = \星期四\ Case 5

week = \星期五\ Case 6

week = \星期六\ Case Else

MsgBox \数据无效\ End Select End Function 6-5

窗体模块

Private Sub Form_click() Dim n As Single, w As String

n = InputBox(\请输入一个正整数\ Select Case w Case judge = 0 Print \此数为偶数\ Case Else

Print \此数为奇数\ Print w End Select End Sub 标准模块

Function w(n As Single) As String w = n \\ 2

Select Case w Case w = 0

Print \此数为偶数\ Case Else

Print \此数为奇数\ End Function 6-7

Sub lenUL(ByVal s As String, U%, L%) Dim i As Integer For i = 1 To Len(s) Select Case Mid(s, i, 1) Case \o \ U = U + 1

Case \o \ L = L + 1 End Select Next i End Sub

Private Sub Command1_Click() Dim U%, L%

Call lenUL(Text1, U, L) Text2 = U Text3 = L End Sub

Private Sub Command2_Click() Text1 = \ Text2 = \ Text3 = \

Text1.SetFocus

End Sub 7-1

Private Sub Command1_Click() Image1.Picture \\picture5.JPG\ End Sub

Private Sub Command2_Click() Image1.Picture \\picture3.JPG\ End Sub

Private Sub Command3_Click() Image1.Picture \\picture4.JPG\ End Sub 7-2

Private Sub Command1_Click() Static a As Integer a = a + 1

If a Mod 2 <> 0 Then

Image1.Picture = LoadPicture(\图片\\p2.JPG\ Image2.Picture = LoadPicture(\图片\\p1.JPG\ Else

=

LoadPicture(\

图

片

=

LoadPicture(\

图

片

=

LoadPicture(\

图

片