VB !!!!还可以追加50分 !!!
德国
Zeiss望远镜，Rolleiflex和Leica相机，Zwilling刀具，皮制 品，音乐盒，锡蜡制品，Meissen瓷器，手表，羊毛制品，木刻，不 莱梅的Worpswede手工艺品，黑森林 (Schwarzwa1d)的咕咕钟，经久耐穿的Birdenstock拖鞋。 ，这些都还不错，注意虽然德国人诚实，但是最好在那种不大不小或者小但精致的店买，太大了就贵，甚至会买到MADEINCHINA，太小了毕竟不放心
德国的表？其实我对表是个外行，毕竟我在丹麦第一个想到的是橡树街的美人鱼餐馆，回忆中……所以只好在网上给你找一下再结合一下我的一点点对表的看法拉，其实个人觉得与其在德国买表还不如去隔壁瑞士，毕竟那里是钟表王国，再有在德国买东西，特别是表这类奢侈品（别告诉我你要买一个made in China的廉价表，不是我卖国，相当多欧洲人把国货看作廉价品的），德国要考虑它高得吓人的赋税，
200欧元以下：为什么划的这么狠？说过表是奢侈品嘛！主要针对常换表配衣服的女孩子，品种要求多又不能花太多钱，时装品牌表一堆，KAUFHOF一楼有的是，但千万别指望是什么好东西，都是东南亚货(包括CHINA)。斯沃琪(SWATCH)要好些，算瑞士机芯(虽然也可能是中国生产)，石英表技术还是日本领先，建议选卡西(CASIO)。
买这个档次的表没什么窍门，看中就行，质量没问题(同品牌在中国买的就不敢保证质量，还真不是崇洋媚外)，价格应该会略低于国内，但没有折扣(赶上大减价算运气)，主要是含16%消费税气人，你爸爸应该是旅游签证把？那回来可以退税的，貌似不多，忘了，具体你查一下，买这档次的表回国送人不错。
这个档次德国没有好机械表，只有日本精工(SEIKO)和西铁城 (港译星辰CITIZEN)，虽然质量好于国内太多，但价格并无优势，再说来欧洲买日本机械表(而且非日本本土生产)感觉怪怪的，如果喜欢精工，可考虑买KINETIC机械电能表。斯沃琪也有机械表，100欧元左右，瑞士货，但太时装化，18-23岁左右戴较合适。
说到机械表，提供一信息，怕待会儿忘了，不莱梅周六AM BRILL桥下跳市有一俄罗斯老爷们儿买俄罗斯新机械表，价格只有市面价的3分之1(跟国内市场差不少，国内旧的多)，50欧元的机械闹铃表100多欧元的机械计时表(加加林上太空戴的就是这种计秒表)，有前苏联的机芯也有瑞士ETA机芯，有各种军表面可选择(看看有没有克格勃
的)，缺点是没有保修单，好这口的可去看看，买计时表注意秒针回零要到位。中低价表店有CHRIST全国连锁店，各城市也都有一些小店卖低价表，可与KAUFHOF比比看，要注意各季大减价，打折的多是低价表。
意大利
既然是不能有吃的，那意大利面和葡萄酒就算了，忍痛割爱啊，威尼斯面具，还有特有的玻璃制品。好的面具比较贵，到几千欧元的都有，一般也在几百以上，玻璃制品视成色来看，有便宜的钥匙链等，几个欧元吧！还有罗马的皮具，再有欧洲人一般都喝水管里的水，在罗马让你爸爸买矿泉水，安全。
芬兰
麋鹿的皮毛，用鹿角制成的纪念品，芬兰刀，酒壶，都可以，对芬兰我不是很熟，对不起，可以参考其他的北欧城市
动力学考察的是吸附速度问题
热力学考察吸附能力和容量
吸附质浓度范围要根据你的实验定，要包括你要测试的浓度。低浓度时多测几个，高浓度时试验点可以分散一点。
支持楼上的意见,再加上以下代码实现鼠标滚轮就更完美了!
MfgMonth:是滚动条的name
模块:
Public Const GWL_WNDPROC = (-4)
Public Const WM_COMMAND = &H111
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MOUSEWHEEL = &H20A
Public Oldwinproc As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'支持滚轮的滚动 Yu 2004-5-10 15:33
Select Case wMsg
Case WM_MOUSEWHEEL
Select Case wParam
Case -7864320 '向下滚
SendKeys "{PGDN}"
Case 7864320 '向上滚
SendKeys "{PGUP}"
End Select
End Select
FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)
End Function
以下代码写在窗体里面
Private Sub MfgMonth_GotFocus()
Oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf FlexScroll
End Sub
Private Sub MfgMonth_LostFocus()
SetWindowLong Me.hWnd, GWL_WNDPROC, Oldwinproc
End Sub
支持楼上的意见，这是最简单的方法了。
VB !!!!还可以追加50分 !!!视频
相关评论：
