[高等教育]河南大學(xué)10級vb程序設(shè)計課后習(xí)題參考答案(參考版)
2025-01-12 15:52本頁面
【正文】 2235 Close 1 End Sub Private Sub Command2_Click() Open d:\ For Input As 2 Do While Not EOF(2) Input 2, X1, X2, x3 Print X1, X2, x3 Loop Close End Sub 102 Private Sub Command1_Click() Open d:\ For Append As 3 Write 3, Text1, Text2, Text3 Text1 = Text2 = Text3 = Close End Sub Private Sub Command2_Click() Close End End Sub 105 Private Sub Form_Click() Dim sum As Long For n = 1 To 100 Step 2 sum = sum + n Next n Print sum End Sub Private Sub Form_Load() Open d:\ For Output As 1 For n = 1 To 100 Step 1 Print 1, n。 4550 Write 1, 603, 李文圣 。 , amp。 , amp。 , amp。 特長 : amp。 b amp。 , amp。 性別 : amp。 amp。 c End Sub 標(biāo)準(zhǔn)模塊 Function volume(r As Single, h As Single) As Single volume = * r * r * h End Function 63 Private Sub Form_Click() Dim y% y = InputBox(請輸入一個整數(shù) ) Call week(y) End Sub 64 窗體模塊 Private Sub Form_click() Dim a As Integer, b As String a = InputBox(請輸入一個整數(shù) ) b = week(a) Print b 標(biāo)準(zhǔn)模塊 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 數(shù)據(jù)無效 End Select End Function 65 窗體模塊 Private Sub Form_click() Dim n As Single, w As String n = InputBox(請輸入一個正整數(shù) ) Select Case w Case judge = 0 Print 此數(shù)為偶數(shù) Case Else Print 此數(shù)為奇數(shù) Print w End Select End Sub 標(biāo)準(zhǔn)模塊 Function w(n As Single) As String w = n \ 2 Select Case w Case w = 0 Print 此數(shù)為偶數(shù) Case Else Print 此數(shù)為奇數(shù) End Function 67 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 A To Z U = U + 1 Case a To z 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 = End Sub 71 Private Sub Command1_Click() = LoadPicture(c:\圖片\) End Sub Private Sub Command2_Click() = LoadPicture(c:\圖片\) End Sub Private Sub Command3_Click() = LoadPicture(c:\圖片\) End Sub 72 Private Sub Command1_Click() Static a As Integer a = a + 1 If a Mod 2 0 Then = LoadPicture(c:\圖片 \) = LoadPicture(c:\圖片 \) Else = LoadPicture(c:\圖片 \) = LoadPicture(c:\圖片 \) End If End Sub Private Sub Form_Load() = LoadPicture(c:\圖片 \) = LoadPicture(c:\圖片 \) End Sub 73 Private Sub Timer1_Timer() = = = = End Sub 74 Private Sub Form_Load() = False End Sub Private Sub Timer1_Timer() If = Then = 100 Else = End If End Sub 75 Private Sub Form_Load() = 0 = = 0 End Sub Private Sub HScroll1_Scroll() = HScroll1 Label1 = 當(dāng)前圖片寬度： amp。 Next i Print End Sub 58 Option Base 1 Private Sub Command1_Click(Index As Integer) Select Case Index Case 1 Text3 = Val(Text1) + Val(Text2) Case 2 Text3 = Text1 Text2 Case 3 Text3 = Text1 * Text2 Case 4 Text3 = Text1 / Text2 End Select End Sub 61 Private Sub Form_click() Dim x As Single Dim y As Single Dim z As Single x = InputBox(請輸入圓柱體的半徑 ) y = InputBox(請輸入圓柱體的高度 ) volume x, y, z Print 圓柱體的體積為 。 Next i Print For i = 1 To 7 x(i) = x(i + 3) Print x(i)。 jMin Erase a End Sub 56 Private Sub Form_Click() n = InputBox(n) ReDim a(n, n) For i = 1 To n For j = 1 To n
試題試卷相關(guān)推薦
鄂ICP備17016276號-1