[高等教育]河南大學(xué)10級(jí)vb程序設(shè)計(jì)課后習(xí)題參考答案-資料下載頁(yè)
2025-01-09 15:52本頁(yè)面
【正文】 End Sub 97 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = vbCtrlMask And Button = vbLeftButton Then Print Ctrl+左鍵 +移動(dòng) If Shift = vbAltMask And Button = vbRightButton Th en Print Alt+右鍵 +移動(dòng) End Sub Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Cls End Sub 98 Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Str(X) + , + Str(Y) BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub 101 Private Sub Command1_Click() Open d:\ For Output As 1 Write 1, 601, 楊大昌 。 4550 Write 1, 603, 李文圣 。 3886 Write 1, 605, 張燕 。 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。 Next n Close End Sub 106 Private Sub Form_Click() Dim sum As Integer For n = 10 To 100 Step 10 sum = sum + n Next Print sum End Sub Private Sub Form_Load() Open d:\ For Random As 1 For n = 1 To 100 Put 1, , n Next End Sub 111 Private Sub Command1_Click() = 3 = End Sub Private Sub Command2_Click() = 263 = 4 = = = = hru = = line End Sub Private Sub Command3_Click() = 2 End Sub 112 Private Sub Command1_Click() = C:\Documents and Settings\Administrator\桌面 = 圖片 |*.jpg|文本文件 |*.txt If = 1 Then = LoadPicture() Else Open For Input As 1 Do While Not EOF(1) Line Input 1, n Text1 = Text1 + n + vbNewLine Loop End If End Sub 11— 3 Private Sub Form_Load() = 河南大學(xué)首頁(yè) = 黑體 = 20 End Sub Private Sub Form_Resize() = 50 = 50 = Width 500 = Height 1000 End Sub Private Sub mnublue_Click() = vbBlue End Sub Private Sub mnuclear_Click() = End Sub Private Sub mnugreen_Click() = vbGreen End Sub Private Sub mnured_Click() = vbRed End Sub 114 Private Sub Form_Resize() = 50 = 50 = Width 2022 = Height 5000 End Sub Private Sub mnuName_Click(Index As Integer) Select Case Index Case 5 = 宋體 Case 10 = 黑體 Case 15 = 隸書(shū) End Select End Sub 115 Private Sub mnuinput_Click() Dim a As Integer a = InputBox(輸入整數(shù) ) If a 0 Then MsgBox (輸入無(wú)效 ) = a End Sub Private Sub mnuoct_Click() Dim a As Integer a = InputBox(輸入整數(shù) ) If a 0 Then MsgBox (輸入無(wú)效 ) = Oct(a) End Sub Private Sub mnuhex_Click() Dim a As Integer a = InputBox(輸入整數(shù) ) If a 0 Then MsgBox (輸入無(wú)效 ) = Hex(a) End Sub 116 Private Sub Form_Load() = Width = Height End Sub Private Sub Form_Resize() = 50 = 650 = Width 200 = Height 900 End Sub Private Sub mnuCopy_Click() s = = True End Sub Private Sub mnuCut_Click() s = = = True End Sub Private Sub mnuPaste_Click() = Text1 + s End Sub 117 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu mnuTitle, 2, 0, 0 End Sub Private Sub mnuDate_Click() Caption = Date BackColor = vbYellow End Sub Private Sub mnuTime_Click() Caption = Time BackColor = vbRed End Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1