vb課程表程序
⑴ 在VB中將課程表和教師對應起來
資料庫表設計:
橫(列) : 教師ID 星期數 第一節 第二內節 第三容節 ... ...
豎(行): 張三 星期一
張三 星期二
張三 星期三
...... .......
⑵ 求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.編寫一個學生課程系統
這個題難度這么大 才五分 不做
⑷ vb 課程表
使用控制項：
屬性選擇的控制項可以用 combobox
資料庫控制項可以選 adodc 控制項
使用方法：
1、建立數版據庫文件 .mdb（excel中的資料庫）權
2、建立資料庫的屬性：年級、 專業等
3、使用adodc 控制項，連接你所建立的資料庫
4、資料庫添加，可之間在excel資料庫文件添加，也可通過VB程序設計添加
5、顯示課程表，使用adodc 的查詢功能即可
⑸ 如何用VB製作一個類似課程表或者工作表的東西
Label控制項+Line控制項即可完成，圖：
⑹ 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設置數據源
⑺ 跪求vb大神，幫我編寫一個課程表的輸入和顯示程序，最好3天內給出
要求都沒寫，我們怎麼知道你要什麼樣子的
⑻ 求一個VB程序，完整的程序
Private Sub Command1_Click()
Dim s As Single, n As Single
s = Val(Text1)
If s <= 1500 Then
n = s * 0.03
ElseIf s <= 4500 Then
n = s * 0.1
ElseIf s <= 9000 Then
n = s * 0.2
Else
n = s * 0.25
End If
Text2 = Format(n, "$0,00.00")
End Sub
Private Sub Form_Load()
Label1.Caption = "金額"
Label2.Caption = "個人稅專"
Command1.Caption = "計算屬"
Text1 = "15678"
Text2 = ""
End Sub
⑼ 用VB編一個 關於教學管理系統的程序
說到學生，自然就會聯想到分數了，學生都是量化的，所以給每個學生打分，做統計，還有系統的重要功能，那就是查詢，可以通過多種方式來查詢到每一個學生，如學號，所在班級等。
⑽ 怎麼做個VB的課程程序
倒計時程序
可以用於一個小課程程序
操作:EXE標准工程;添加控制項四個,command四個,TIMER一個;
代碼如下:
Public
sec
As
Integer
'添加全局變數
Private
Sub
Form_Load()
Timer1.Interval
=
1000
End
Sub
Private
Sub
Command1_Click()
a
=
Val(Text1.Text)
'類型轉換
b
=
Val(Text2.Text)
c
=
Val(Text3.Text)
d
=
a
*
3600
+
b
*
60
+
c
sec
=
d
Timer1.Enabled
=
True
End
Sub
Private
Sub
Command2_Click()
Timer1.Enabled
=
False
End
Sub
Private
Sub
Command3_Click()
Timer1.Enabled
=
True
End
Sub
Private
Sub
Command4_Click()
End
End
Sub
Private
Sub
Timer1_Timer()
If
sec
=
0
Then
MsgBox
("時間到!")
Timer1.Enabled
=
False
Else
End
If
m
=
sec
e
=
Int(m
/
3600)
'剩餘時間時
m
=
m
-
e
*
3600
f
=
m
g
=
Int(m
/
60)
'剩餘時間分
m
=
m
-
g
*
60
'剩餘時間分
Text4.Text
=
Str(e)
+
":"
+
Str(g)
+
":"
+
Str(m)
sec
=
sec
-
1
End
Sub
注:text1,text2,text3為設定時間的"時","分","秒';
text4為剩餘時間
command1:開始
command2:暫停
command3:恢復
command4:退出
以上是程序大致輪廓,下載地址
http://www.the6yifu.cn/soft/time.rar
如需要改善聯系
miaoliangdd#gmail.com
'#為@