实战化教学领导品牌&&全国咨询热线：400-009-1906
>常见问题>疑问解答
问：你们的课程时间是如何安排的？
时间： 11:01:00&&&来源：尚学堂&&&阅读：
& & & 正常情况下，我们的课程时间不会变动：
& & & 上午9点到12点授课。下午2点到6点授课。晚自习是7点到9点。晚自习也需要大家都在。
尚学堂订阅号
尚学堂服务号
北京海淀区校区（总部）
地址：北京市海淀区西三旗桥东建材城西路85号神州科技园B座尚学堂
咨询电话：400-009-1906&/&010-
北京京南校区
地址：北京亦庄经济开发区科创十四街6号院1号楼 赛蒂国际工业园
咨询电话：400-009-1906&/&010-
北京昌平区校区
北京市昌平区北七家镇东三旗（亚市）汽车交易市场尚学堂二层
咨询电话：400-009-1906&/&010-
上海尚学堂松江校区地址
地址：上海市松江区荣乐东路2369弄45号绿地伯顿大厦2层
咨询电话：021-
上海尚学堂浦东校区地址
地址：上海市浦东新区川宏路230号4栋
咨询电话：021-
郑州学院地址
地址：金水区东风路经三路北100米注协大厦10楼
咨询电话：6
四川学院地址
地址：成都市高新区锦晖西一街99号布鲁明顿大厦2栋1003室
咨询电话：028-
长沙学院地址
地址：长沙市岳麓区麓源路湖南电子商务基地5楼(公交车站：六沟垅)
咨询电话：1
广州学院地址
地址：广州市天河区元岗横路31号慧通产业广场B区B1栋6楼尚学堂
咨询电话：020-&/&
太原学院地址
地址：山西省晋中市榆次区大学城大学生活广场万科商业A1座702
咨询电话：&/&
武汉学院地址
地址：湖北省武汉市江夏区江夏大道26号 宏信悦谷创业园4楼
咨询电话：027-
呼和浩特学院地址
内蒙古呼和浩特市赛罕区鄂尔多斯大街学府花园文体馆
咨询电话：400-009-1906
济南学院地址
济南市长清区数娱广场C座1304室
咨询电话：8
深圳学院地址
深圳市宝安区航城街道航城大道航城创新创业园A4栋210（固戍地铁站C出口）
咨询电话：请大家帮忙看看我的行程，谢谢（已做过功课）,大家好，我和朋友一行4人准备五月中旬赴德国自驾游，在穷游网上潜心了几个星期，制定了旅行计划，想让各位高手帮忙挑挑毛病。 因为欧洲好玩的地方太多，以后有机会还想来，所以这次德国定的路线就以南德和瑞士为主。
盼望大家在看过我
请大家帮忙看看我的行程，谢谢（已做过功课）,大家好，我和朋友一行4人准备五月中旬赴德国自驾游，在穷游网上潜心了几个星期，制定了旅行计划，想让各位高手帮忙挑挑毛病。 因为欧洲好玩的地方太多，以后有机会还想来，所以这次德国定的路线就以南德和瑞士为主。
盼望大家在看过我的行程后提宝贵意见：
一是行程是否过赶，旅途太疲惫；
二是游玩的景色是否重复；
三是有没有可能再砍掉些不必要的景点，加上奥地利。
行程有点乱，麻烦大家了，谢谢！ 德国旅游路线图 乘坐5月15日晚飞机，16日清晨到法兰克福（frankfurt）机场 第一天
预计开车134公里。早上到，预计过关加上提车至中午。
驱车至Mainz(美因茨) （中餐），吕德斯海姆（rudesheim）河右侧
可选马克斯堡（Markburg）参观
旅游莱茵河右岸至科布伦茨（koblenz）
住宿科布伦茨 第二天
预计开车342公里
沿着摩泽尔河谷下游(49号公路左侧)至Bremm---至沃尔姆斯（worms）古老城市之一
下午前往葡萄酒之路再前往海德堡（heidelberg） 第三天
预计开车122公里
一早旅游海德堡城堡、古桥、骑士之家、圣灵大教堂
下午A5/A8公路
前往斯图加特（stuttgart）
如果时间够，前往保时捷博物馆（下午4点关门） 第四天
预计开车220公里
可选项：城堡广场、席勒广场（10点开门）市中心
州立绘画馆（10点开门） 市东侧（大师绘画）
奔驰博物馆(9点开门）市东郊
中午午赶往苏黎世
沿途路过----施瓦本阿阿尔卑斯（schwabische alb）
蒂宾根（tubingen）中餐
晚上住宿苏黎世 第五天
苏黎世（Zurich）
班霍夫大街（市中心）。歌剧院（opernhaus）
尤特骊山(uetliberg)—看苏黎世全景及阿尔卑斯山
（途经莱茵瀑布rhein falls）/
晚上住宿苏黎世 第六天
21日周四 洛桑（Lausanne）预计开车222公里
晚上住宿洛桑（Lausanne） 第七天
瑞士景点待定
下午前往博登湖
预计开车314公里
晚上赶往康斯坦茨（konstanz）住宿加晚餐 第八天
预计开车181公里
早上迈瑙岛花园 （mainau）
绕到岛的北部 林道（lindau）
Wasserburg 瓦瑟堡（拍摄最佳地点）
下午赶往菲森（fussen）住宿 第九天
预计开车132公里
游新天鹅堡、旧天鹅堡
下午前往慕尼黑
五点前可参观部分博物馆（周一不开门） 第十天
国王广场（Konigsplatz）-博物馆之旅-----待定
德意志博物馆（9：00-5：00）
宝马博物馆--BMW Museum 第十天
卡尔广场（Karlsplatz）步行街
住宿慕尼黑（Munchen）
晚上慕尼黑 第十二天
预计开车403公里
主教宫（Residenz）
玛丽恩要塞（Festung Marienberg）
晚上住宿法兰克福 第十三天
市区游、博物馆大道（Schaumainkai Museumsufer）
罗马广场（Romer Platz）
晚上购物 第十四天
法兰克福金融区
闲逛、购物
晚上飞机回中国 第十五天
下午机场返回
全部答案（共1个回答）
尽管了解的地方不多,总的感觉你的行程就像是典型的赶路型,时间基本上都耗在路上了,贪多不可取。 我就说说我熟悉的斯图加特吧,Mecerdes Museum9点开门,估计在里面最少最少也要1个半小时吧,我自己从没去过,只是估计,这样就已经10点半了,赶去Stadtmitte估计已经11点了,这样哪有时间留给你其他地方,毕竟你中午就又要赶路了,再去别的博物馆纯粹就是浪费门票钱。 瑞士那部分,你Zurich到Lausanne完全和你以后的路线有点相反,这样路上又会消耗时间。 Munich,光一个Deutsches Museum如果好好逛的话就足够你花上一整天的时间了,BMW Welt去不去我觉得也无所谓,不过如果你Porsche,Mercedes都去了,BMW不去又有点遗憾啊! 时间还有得多,我觉得你应该删除一些景点,当然只是个人意见,我玩的也不多,听听别人的意见吧
個人淺見.D3就去海洋公園及遊覽維多利亞港和星光大道.D4淺水灣及赤柱+擬定行程.
穷游别人的攻略里面看一下,这个有专门excel表格的,前人都已经做的很好了,你照抄就行。你只有日期和地点,太简单了,要有每天主要景点和住宿信息。
恩,好像是,但从哥打巴鲁提早一个航班又觉得太早了
天安门广场重复了,第一天可以不用去,第二天看升旗的时候可以一起去哦,第四天的鸟巢水立方可以挪到第一天,从八达岭回来应该就蛮晚了,再跑到鸟巢水立方太累了~希望可以...
签证还是办意大利的吧,现在好像还没收服务费。 三天罗马和梵蒂冈基本可以走过,当然要在梵蒂冈博物馆里流连那时间远远不够, 二天去锡耶纳和佛罗伦萨真不够,建议换成比...
感觉不用中文导游吧,且导游不会干TUTU的,有的是比这挣钱的买卖,中文导游水准层次不齐,反正我在女王宫听到一导游把湿婆称之为玉皇大帝,我就无语了。中文司机你可以...
哈哈,楼主情况和我基本相似啊,我的行程可能比你稍从容一点。可以翻翻按以前的帖啊,应该有一点参考性的。 下面关于租车的信息供参考: 租车,专门跑了一趟租车公司,8...
楼主,我把给你的建议都写在我的日记里了,你快来看。
骨质增生主要是指是指人体关节的软骨、脊柱的椎体边缘，以及关节面和骨突处的骨小梁增多和骨密度增高。骨质增生的本质是人体骨骼的一种“衰老”现象，是一种正常的生理现象...
答: 请问猫空缆车网上预约的时候是选本国还是外籍
答: 建议加钱上mx4
答: 好像没有。二手机大都是来路不明的。建议不要买。质量没有保证。
答: 好像没有。二手机大都是来路不明的。建议不要买。质量没有保证。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区分享给朋友：通用代码: <input id="link4" type="text" class="form_input form_input_s" value="" />复 制flash地址: 复 制html代码: <input type="text" class="form_input form_input_s" id="link3" value="" />复 制分享视频到站外获取收益&&手机扫码分享视频二维码2小时内有效编程，学校不会教你的课程！下载至电脑扫码用手机看用或微信扫码在手机上继续观看二维码2小时内有效编程，学校不会教你的课程！扫码用手机继续看用或微信扫码在手机上继续观看二维码2小时内有效，扫码后可分享给好友没有优酷APP？立即下载请根据您的设备选择下载版本
药品服务许可证(京)-经营-请使用者仔细阅读优酷、、Copyright(C)2017 优酷
版权所有不良信息举报电话:查看: 416|回复: 8
各位大侠，请帮忙看一下这个课程表的事！谢谢了！
阅读权限20
在线时间 小时
各位大侠，我要根据“课程总表”和“教学分工”得出教师个人课表和班级课表，恳请各位大侠们帮帮忙哈！
09:48 上传
点击文件名下载附件
38.95 KB, 下载次数: 24
阅读权限50
在线时间 小时
& & & & & & & &
早自习，政史，教师课表怎么排？
阅读权限50
在线时间 小时
第一问，班级课表
Sub kb()
& & Application.ScreenUpdating = False
& & Dim arr, brr, n%, i%, j%, r%, col%, d1, d2, k
& & Set d1 = CreateObject(&scripting.dictionary&) '记录总课表
& & Set d2 = CreateObject(&scripting.dictionary&) '记录教学分工
& & With Sheets(&总课表&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For j = 3 To UBound(arr, 2)
& && && && &d1(arr(3, j) & &-& & arr(4, j) & &-& & arr(5, j) & &-& & &早自习&) = arr(6, j)
& && && && &For i = 7 To UBound(arr)
& && && && && & If Len(arr(i, 2)) Then d1(arr(3, j) & &-& & arr(4, j) & &-& & arr(5, j) & &-& & arr(i, 2)) = arr(i, j)
& && && && &Next
& && &&&Next j
& & End With
& & With Sheets(&教学分工&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&' n = 0
& && &&&For i = 4 To UBound(arr)
& && && && &For j = 2 To UBound(arr, 2)
& && && && && & If Len(arr(i, j)) Then d2(arr(2, j) & &-& & arr(3, j) & &-& & arr(i, 1)) = arr(i, j)
& && && && &Next j
& && &&&Next i
& & End With
& & With Sheets(&班级课表&)
& && &&&.Range(&D6:J11,D13:J16,D18:J23,D25:J32&) = &&
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&brr = .[A1].Resize(r, col)
& && &&&For i = 6 To UBound(brr) Step 2
& && && && &For j = 4 To UBound(brr, 2)
& && && && && & k = brr(5, j) & &-& & brr(3, 2) & &-& & brr(3, 3) & &-& & brr(i, 2)
& && && && && & If d1.exists(k) Then
& && && && && && &&&brr(i, j) = d1(k)
& && && && && && &&&brr(i + 1, j) = d2(brr(3, 2) & &-& & brr(3, 3) & &-& & brr(i, j))
& && && && && & End If
& && && && &Next
& && && && &Select Case i
& && && && &Case 10
& && && && && & i = 11
& && && && &Case 15
& && && && && & i = 16
& && && && &Case 22
& && && && && & i = 23
& && && && &End Select
& && &&&Next
& && &&&.[A1].Resize(r, col) = brr
& & End With
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
抽空做了第二问，请测试。
Sub jskb() '教师个人课表
& & Application.ScreenUpdating = False
& & Dim arr, brr, i%, j%, r%, col%, d1, d2, d3, k, k1, temp, s
& & Set d1 = CreateObject(&scripting.dictionary&) '记录总课表
& & Set d2 = CreateObject(&scripting.dictionary&) '记录教学分工
& & With Sheets(&总课表&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For j = 3 To UBound(arr, 2)
& && && && &d1(arr(4, j) & &-& & arr(5, j) & &-& & arr(6, j) & &-& & arr(3, j)) = &早自习&
& && && && &For i = 7 To UBound(arr)
& && && && && & If Len(arr(i, 2)) Then d1(arr(4, j) & &-& & arr(5, j) & &-& & arr(i, j) & &-& & arr(3, j) & &-& & arr(i, 2)) = arr(i, 2)
& && && && &Next
& && &&&Next j
& & End With
& & With Sheets(&教学分工&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For i = 4 To UBound(arr)
& && && && &For j = 2 To UBound(arr, 2)
& && && && && & If Len(arr(i, j)) Then
& && && && && && &&&If Not d2.exists(arr(i, j)) Then Set d2(arr(i, j)) = CreateObject(&scripting.dictionary&)
& && && && && && &&&d2(arr(i, j))(arr(2, j) & &-& & arr(3, j) & &-& & arr(i, 1)) = &&
& && && && && & End If
& && && && &Next j
& && &&&Next i
& & End With
& & With Sheets(&个人课表&)
& && &&&.Range(&D6:J11,D13:J16,D18:J23,D25:J32&) = &&
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&brr = .[A1].Resize(r, col)
& && &&&Set d3 = CreateObject(&scripting.dictionary&)
& && &&&For i = 6 To UBound(brr)
& && && && &If Len(brr(i, 2)) Then d3(brr(i, 2)) = i
& && &&&Next
& && &&&js = brr(3, 2)
& && &&&temp = d2(js).keys
& && &&&For i = 0 To UBound(temp)
& && && && &For j = 4 To UBound(brr, 2)
& && && && && & k = Filter(d1.keys, temp(i) & &-& & brr(5, j))
& && && && && & If UBound(k) &= 0 Then
& && && && && && &&&s = Split(temp(i), &-&)
& && && && && && &&&For Each k1 In k
& && && && && && && && &brr(d3(d1(k1)), j) = s(2)
& && && && && && && && &brr(d3(d1(k1)) + 1, j) = s(0) & &年级& & s(1) & &班&
& && && && && && &&&Next
& && && && && & End If
& && && && &Next j
& && &&&Next i
& && &&&.[A1].Resize(r, col) = brr
& & End With
& & Set d1 = Nothing: Set d2 = Nothing: Set d3 = Nothing
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件。。。
(51.32 KB, 下载次数: 12)
15:22 上传
点击文件名下载附件
阅读权限20
在线时间 小时
早自习，政史，教师课表怎么排？
不好意思，我个把这个搞忘记了，政史可以不排给任何一个老师，因为那是公共的科目。
阅读权限50
在线时间 小时
不好意思，我个把这个搞忘记了，政史可以不排给任何一个老师，因为那是公共的科目。
修改作文课程的问题，详见附件。。
(50.91 KB, 下载次数: 22)
16:07 上传
点击文件名下载附件
阅读权限20
在线时间 小时
修改作文课程的问题，详见附件。。
太感谢您了！
阅读权限20
在线时间 小时
修改作文课程的问题，详见附件。。
大哥，您好，上次麻烦您帮忙做的个课程表，我这里又有个问题，想麻烦您一下，好吗？麻烦您帮忙留个联系方式好吗？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师请教我该如何取舍课程，然后如何学习成为一个程序员? - 知乎524被浏览24030分享邀请回答ASP.NET 没什么冲突，我当时也为兴趣学了 Direct3D、OpenGL 及一部分计算机图形学、游戏引擎相关知识等。我觉得不用「取舍」，在完成基本专业内的课，尽力学习自己有兴趣的知识。个人认为，程序员最基础的是编程和算法方面的知识，后者你可能比较缺乏。做软件的话，最好也可以学一点软件工程上的，但必需通过实践来学习。而做研究的话，你需要选择一些理论或应用方向，例如应用方面有人工智能（机器学习、计算机视觉）、图形、数据、网络等等。8214 条评论分享收藏感谢收起52 条评论分享收藏感谢收起查看更多回答1 个回答被折叠（）