vb課程表

❶ 如何用VB製作一個類似課程表或者工作表的東西

Label控制項+Line控制項即可完成，圖：

❷ 求VB程序代碼。困難。課程安排問題。

我已調試過了，沒有問題

Dim weeks(6) As String
For t = 1 To 4 '由於有順序考試，X Y Z，所以X課程只能在星期一到星期四考
weeks(t) = "x"
For j = t + 1 To 5 』Y在X後面考，所以只能在星期二到星期五考
weeks(j) = "y"
For k = 5 To 6 『Z只能在星期五或星期六考
If k = j Then 』如果Y在星期五考，那麼Z只能在星期六考
k = k + 1
weeks(k) = "z"
Print "星期"; t, weeks(t), "星期"; j, weeks(j), "星期"; k, weeks(k)
Print
Exit For
Else
weeks(k) = "z"
Print "星期"; t, weeks(t), "星期"; j, weeks(j), "星期"; k, weeks(k)
Print
End If
Next k
Next j
Next t

❸ vb 課程表

使用控制項：
屬性選擇的控制項可以用 combobox
資料庫控制項可以選 adodc 控制項
使用方法：
1、建立數版據庫文件 .mdb（excel中的資料庫）權
2、建立資料庫的屬性：年級、 專業等
3、使用adodc 控制項，連接你所建立的資料庫
4、資料庫添加，可之間在excel資料庫文件添加，也可通過VB程序設計添加
5、顯示課程表，使用adodc 的查詢功能即可

❹ VB程序設計 課程表查詢 編輯代碼

Ctrl+t找Microsoft DataGrid Control....
'菜單"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 某個表 where 課程欄位名 ='" & Text1.Text & "'"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打開記錄集
Set DataGrid1.DataSource = rst '給DataGrid設置數據源

❺ 有一個Excel表格課程表，需要使用VB編程通過選取教師姓名來查詢信息

在聲明變數語句後面加上: on error resume next

❻ 在VB中將課程表和教師對應起來

資料庫表設計:

橫(列) : 教師ID 星期數 第一節 第二內節 第三容節 ... ...

豎(行): 張三 星期一
張三 星期二
張三 星期三
...... .......