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
'#为@