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 星期数 第一节 第二内节 第三容节 ... ...

竖(行): 张三 星期一
张三 星期二
张三 星期三
...... .......