[高等教育]河南大學(xué)10級vb程序設(shè)計課后習(xí)題參考答案(已改無錯字)
2023-02-09 15:52:55 本頁面
【正文】 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。 End Sub 76 Private Sub Command1_Click() For i = To = i (For j = 1 To 20220 Next j) （延時） Next i End Sub 77 Private Sub Command1_Click() a = IIf(Option1, 男 , 女 ) b = IIf(Option3, 碩士 , 博士 ) c = IIf(Check1, 音樂 , ) d = IIf(Check2, 演講 , ) e = IIf(Check3, 體育 , ) f = IIf(Check4, 集郵 , ) Text2 = 姓名 : amp。 amp。 , amp。 性別 : amp。 a amp。 , amp。 學(xué)歷 : amp。 b amp。 , amp。 特長 : amp。 c amp。 , amp。 d amp。 , amp。 e amp。 , amp。 f End Sub Private Sub Command2_Click() Text1 = Text2 = End Sub 78 Private Sub Form_Load() 河南省 開封市 河南大學(xué) 金明校區(qū) 環(huán)境與規(guī)劃學(xué)院 09級 地理科學(xué)專業(yè) 劉彬 畢業(yè)于 湖南省 衡山縣 第二中學(xué) 218班 End Sub Private Sub Combo1_Click() End Sub Private Sub List1_DblClick() End Sub 81 Dim x As Single, y As Single Private Sub Pt1_Click() (0, 100)(100, 0) = 2 For x = 0 To 100 Step (x, 2), vbRed Next x For y = 0 To 100 Step (2, y), vbRed Next y = 2 = 5 (0,0) End Sub 82 Private Sub P1_Click() (0, 100)(100, 0) = 7 = 5 = vbGreen (10, 90)(90, 10), vbRed, B End Sub 83 Private Sub Form_click() Scale (100, 100)(100, 100) Line (100, 0)(100, 0) Line (0, 100)(0, 100) CurrentX = 2 CurrentY = 6 Print (0,0) End Sub 84 Private Sub Form_click() Scale (100, 100)(100, 100) Line (100, 0)(100, 0) Line (0, 100)(0, 100) For x = 100 To 100 Step y = 10 * Sin(x) 10 * Cos(2 * x) PSet (x, y), vbRed Next x End Sub 87 Private Sub Form_Click() = True End Sub Private Sub Timer1_Timer() Randomize Scale (120, 120)(120, 120) DrawWidth = 2 If r 100 Then r = r + 2 For r = 0 To 100 Circle (0, 0), r, RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) Next r End If End Sub 91 Private Sub Text1_KeyPress(K As Integer) K = K + 3 End Sub 92 Private Sub Text1_KeyPress(K As Integer) Select Case K Case 48 To 57 K = K Case Else K = 0 End Select End Sub 96 Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 5 End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 11 End Sub Private Sub Picture1_Click() MouseIcon = = =
試題試卷相關(guān)推薦
鄂ICP備17016276號-1