計算機專業(yè)課程設計-試卷自動生成系統(tǒng)(編輯修改稿)
2025-02-07 04:55 本頁面
【文章內容簡介】 部件 MSHFlexGrid1，在其屬性窗口 DataSource項選擇 Adodc1，編譯之后即可看出鏈接成功，如圖 319 所示： 圖 319 程序代碼如下： （ 1） 添加試題： Private Sub Command1_Click() (試題類型 ).Value = (試題分值 ).Value = (試題難度 ).Value = (試題章節(jié) ).Value = End Sub （ 2）刪除試題 Private Sub Command2_Click() MsgBox 記錄刪除成功！ , , 提示 End Sub （ 3）更新試 題 Private Sub Command3_Click() End Sub （ 4）（關閉窗口） Private Sub Command4_Click() Unload Me End Sub （ 5）搜索功能 Private Sub Command5_Click() If Then = SELECT * from 試題信息表 where amp。 amp。 like amp。 amp。 39。 Else MsgBox 沒有 amp。 amp。 查詢的數(shù)據(jù) , vbInformation + vbCritical, 提示 End If End Sub （ 6） 查看首條記錄 Private Sub Command6_Click() End Sub （ 7）查看上一條記 錄 Private Sub Command7_Click() If Then MsgBox 這已是第一條了 , vbOKOnly + vbExclamation, 提示 End If End Sub （ 8） 查看下一條記錄 Private Sub Command8_Click() If Then MsgBox 這已是最后一條了 , vbOKOnly + vbExclamation, 提示 End If End Sub （ 9） 查看末記錄 Private Sub Command9_Click() End Sub （ 10）實現(xiàn)在復選框中查詢關機詞的功能 Private Sub Form_Load() (試題類型 ) (試題分值 ) (試題難度 ) (試題章節(jié) ) = 0 = End Sub （ 11） 生成組卷代碼 Dim TempRec1 As New Dim A1 As String Dim MyWord As Dim WordDoc As Dim BTextBox Dim MyRange As Dim MyTable As Dim MyCell As Dim MyCells As Dim MyCols As Dim A() As String Dim B() As String Dim ColN As Integer Dim ArrBytes() As Byte Dim FreeFileNumber As Integer Dim Lngsize As Long Set = DBCon If = 1 Then MsgBox 沒有選擇試卷名稱 ,不能生成試卷 !, vbOKOnly, 提示 Exit Sub End If select id from sjtx where sjbm=39。 amp。 SjbmArry( + 1) amp。 39。 If = 0 Then MsgBox 沒有選擇試卷題型順序 ,不能生成試卷 !, vbOKOnly, 提示 Exit Sub End If Load Form13 = 810 = 4680 CenterForm Form13, MDIForm1 = False 創(chuàng)建新文檔 On Error GoTo ErrorEnd Start: Set WordDoc = If Then With PageHeight = InchesToPoints() PageWidth = InchesToPoints() End With End If If Then 試卷分欄設置 With PageHeight = InchesToPoints() PageWidth = InchesToPoints() End With NumColumns:=2 = CentimetersToPoints(4) End If 插入試卷名稱 = 宋體 = 16 A1$ = Trim() = wdAlignParagraphCenter A1$ Chr(13) 插入科目名稱 = 宋體 = 15 A1$ = 《 amp。 Trim() amp。 》 + Chr(13) = True = wdAlignParagraphCenter A1$ = False 插入注意事項 If = 1 Then End If select Zysx from Sjbt where Sjbm=39。 amp。 SjbmArry( + 1) amp。 39。 If = 0 Then MsgBox 沒有找到試卷的注意事項，不
試題試卷相關推薦
鄂ICP備17016276號-1