【最高分】250分，20万元人民币，挑选一个合适的国家留学

1. 【最高分】250分，20万元人民币，挑选一个合适的国家留学

俄罗斯~

2. 请大家帮帮我吧，这是我最高分了。我是新手嘛

朋友  多了  路好走 
 交  不 交   白   不   交
  
   不光彩de历史 那是曾经
   只要 看 现 在  de  你 ...

3. 250分最高分求做一个EXCEL时间表，高手进

按你的要求做了一张时刻表。 
方法很笨，贴出来，让砖家门来丢砖头： 

a、b、c三列设置自定义格式为yyyy-mm-dd hh:mm 
b1=today()-1；昨天的日期 
b2=2008-7-2 20:33；起始时刻 
b3=b2+time(0,43,0)；等于上一格时刻加上43分钟 
b3公式向下拖2500行左右，使出现昨天日期 
c2=if(b2<b$1,"",b2) 
双击c2填充柄，这样c列显示的第一个时刻将作为a列的起始时刻 
a1=min(c:c)；取c列的第一个时刻 
a2=a1+time(0,43,0)，双击a1填充柄 
a列出现的时间（2500行）应该不止三天的了，要想少一点，可删掉一些，要想多一点，还可往下拖。 
最后隐藏b列和c列。 

用VBA代码实现： 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
cells(1,1) = DateValue("2008-7-2") + TimeValue("20:33:00") 
While cells(1,1) < cells(1,2) 
cells(1,1) = cells(1,1) + TimeValue("0:43:0") 
Wend 
'递加43分钟，直到满足要求 
For i = 2 To 100 
'3天：3*24*60/43＝100.46，100行正好。
Cells(i, 1) = Cells(i - 1, 1) + TimeValue("0:43:0") 
Next 
End Sub 
关闭代码窗口，b1输入=today()-1，回车。 
VBA就是简单，复制代码过去就行了。前面的笨办法不好复制的。

4. ----250分----word文档中插入公章，如何禁止别人复制？----最高分----

机关单位要发文，就必须加盖公章才能体现出文件的正规，在网上办公时，能否也能给文件加盖一个公章呢？当然可以！ 

一、用Word制作电子公章 

1、图章轮廓 
选择“插入→图片→自选图形”，在“绘图”工具栏中选择椭圆，按下Sfift键在文档中拖出一个圆，设置为“无填充色”，线条宽度为2磅，颜色为红色，“叠放次序”为“最底层”。 



2、编辑文字 

在文档中插入艺术字，选择环形艺术字，输入内容后设置字体、字号，然后用艺术字周围的8个拖拉按钮把文字拖成圆形，并放在已经画好的圆内，可以用Ctrl键和方向键帮助移动到准确的位置。并把艺术字设置成红色。 



3、插入五角星 

在“自选图形→星与旗帜”中选中五角星，然后在文档中画出一个大小适合的五角星，并设置成红色，移动到圆中合适的位置，然后选中圆、艺术字、五角星，单击鼠标右键，选择“组合”，一个公章就制作出来了，要用时复制一个到目标处，是不是很正规啊！ 





但是，用Word制作电子公章可以用在一般的文档中，但如果是正式的行文，则要求公章有防伪功能，别人不能仿制，这时候，我们可以用办公之星来制作可以防伪的电子公章。 


二、制作可以防伪的电子公章 

在办公之星中，制作公章就简单得多，直接在“插入→印章→圆形印章”中即可加入印章。在对话框中设置好印章的参数时，在文本中就可以看到印章的情况。 



特别的是，软件对生成的印章有对应的数字防伪标识，你还可以给印章设置密码来进行保护，防止非授权的编辑。 



当要查看印章的真伪或对印章进行修改、复制时，可以右击印章，出现“印章密码”对话框，要求输入正确的密码，同时显示印章的数字防伪标识（在此可以验证印章的真伪）。 



其实，如果要进行网上发文件，可以先在办公之星中制作出一个标准的电子印章后，复制到Word中，保存后，就可以经常调用了。

5. ◆250分◆如何练出肌肉？？？？？？？？？？？？？？？？最高分

一.上胸发达度不够,与中下胸存在明显落差 

  1.斜板杠,哑铃卧推.为什么有人练习了很长时间效果不明显呢?说明动作需要改进.第一.要注重动作要领.改掉做桥式推举的习惯.否则成了近似平板卧推.练习的部位游离到了中.下胸部.第二.如果全程动作效果不好,可考虑半程动作,同时注意力集中在上胸部,适当加大重量.请同伴保护或助力.第三.如果用杠铃做效果不好,可以哑铃为主.有个小技巧:下降哑铃时不走直线,可微卷手腕,使路线略呈:C:形,这样可在切线方向产生一个分量,加在上胸横截面上.要点是注意力必须集中在上胸横截面上.并想像筋脉暴起.充血良好,以强化训练效果. 

  2。直立杠哑铃推举，不系腰带，以每组6－8次的负荷做推举。由于身体自然后倾。故对上胸有很强的刺激效果。能很快“淹没“显露的锁骨。 

  3。平卧推举。由于身体结构和柔韧性方面的差异。如果做斜板卧推收效果甚微的话，则不妨用平卧推来发达上胸。动作要点是：下放杠铃时将铃杠置于颈部，注意力集中在上胸部，再就是在卧板下垫一木块，使之呈5－10度的小倾角。以利于挺起胸部。 

  4。前倾式俯卧撑。垫高双脚，使身体前倾10度左右，最多不超过15度，否则受力的重点会转至肩部。可请同伴在上背部加杠铃片。 

  二，胸肌中缝不明显的改进 

  职业高手们的胸肌中缝宛如一线，即窄又深，为使胸缝深陷，必须让近胸沟处肌肉立起，关键在于充分挤压胸肌，使两侧胸肌在每次动作中充分地接近，隆起。 

  1。直臂器械夹胸。直臂比常规的屈臂动作效果好。坐于凳上，伸直双臂。拳眼向前，小臂抵住挡臂板。这样双臂能在胸前交*，幅度自然大于屈臂动作。交*双臂时坚持1－2秒钟，顶峰收缩。以尽量对胸肌近中缝处进行挤压，逼其：“立“起来。 

  2。拉力器十字交*，立于拉力器架下，双手握柄做夹胸动作，充分交*双臂，而不是相触即分。可以一组左臂在上，一组右臂在上，或双臂交替上下，每组做8－12为准。 

  3。窄握卧推。能采用较大负荷进行练习，但幅度受限，有利有弊，需与其他方法结合进行才能得到良好效果。 

  哑铃飞鸟虽对练胸缝也有一定作用，但双臂一旦过了身体平衡，对胸肌拉伸的张力就会变小，所以胸缝的训练应以有滑轮的器械为主。 

  三。增加胸肌厚度的办法 

  增加胸肌厚度要注意以下几点，一是不要总是按已经习惯的负重进行训练，一旦一组动作的次数超过10－12次，就应该考虑增加负荷，人体的调节机制很特别，如果一个负荷会使其难受，那它就会调节神经系统储存更多的能量，以便下一次相对轻松地化解。如此循环往复，肌肉才能不断增厚变大。二是尽可能增大动作幅度，动作幅度对增加任何一块肌肉的厚度都有著至关重要的作用。动作幅度越大，肌纤维拉伸与收缩的程度就越大，受的刺激也越强。效果自然比幅度受限的动作要好的多。三是多做一些大负重的上身动作。如硬拉，立姿推举等。这些动作在全面提高上体围度的同时，对增厚胸部肌肉有很好的促进作用。 

  两个增厚胸肌的主打动作 

  1。杠铃平板卧推：除常规的8－12次练习外，应定期安排大重量训练日，用大重量甚至超负荷来打破身体的适应性，动作一般做4－6次，极限重量做1－3次。总组数为8－10组。极限组做2－3组，组间休息为1分半到2分钟。然后再安排一两个其他动作。如斜板卧推或飞鸟，做12－15次，最后做1－2组高次数（15－20次），这样能兼顾深层肌纤维，使肌肉高度充血，与大重量训练构成相辅相成的良好效果。 

  2，哑铃平板卧推：除了正常的起落位置外，还可刻意将哑铃放到近腰处，以增大胸廓，刺激下胸。开始用较轻的重量体会，适应，习惯后相应增大重量，下限为竭尽全力做八次左右。 

  四。块形的塑造 

  胸肌块形不理想除了前面谈的上胸，中缝和厚度等原因外，还有几个直观原因，胸肌宽阔度不够，尤其是下外侧缘狭小，下胸过分下坠或发达度不够；常态下整体轮廓不够清晰。 

  胸肌宽阔度的改进，杠铃平卧推举要宽握，开始也许不太习惯，但很快就能适应，握距越宽，对胸肌外侧缘的刺激越强，能使胸肌充分打开，拉伸。 

  下外侧缘偏小可调节落杠位置，使之*近下胸部，做哑铃卧推时可刻意使起落位置偏下，仰卧飞鸟无论哑铃还是拉力器均要这样。另外，架空俯卧撑对改善胸肌下外侧缘偏小也有一定作用；手应撑于体侧偏下位置，背上可加一定重量。 
最后祝福你早日锻炼出健美的肌肉

6. 250分最高分跪求英文翻译

我把答案分批次放到你的空间里吧 其他朋友想看译文可以直接到LZ空间去看

We must learn to share!

7. 你看国多少课外书,供应几个书名给我吧,老师布置的!

推荐的小学生必读课外书（适合五年级）：
《鲁滨逊漂流记》、《钢铁是怎样炼成的》、《假如给我三天光明》、《童年》、《谁动了我的奶酪》

以上都是推荐必读的，而且适合你这个年龄段。


PS：希望我的答案你能满意！

8. 250分最高分，请高手解答VB6程序读取网页文本及其链接的方法

模块里写:
'超级链接
Public Function QueryValue(lPredefinedKey As Long, sKeyName As _
        String, sValueName As String)
       Dim lRetVal As Long
       Dim hKey As Long
       Dim vValue As Variant

       lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, _
                KEY_ALL_ACCESS, hKey)
       lRetVal = QueryValueEx(hKey, sValueName, vValue)
       QueryValue = vValue
       RegCloseKey (hKey)
End Function
'超级链接
Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName _
        As String, vValue As Variant) As Long
    Dim cch As Long
    Dim lrc As Long
    Dim lType As Long
    Dim lValue As Long
    Dim sValue As String

    On Error GoTo QueryValueExError
    
    '获得键值的属性
    lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
    If lrc  ERROR_NONE Then Error 5

    Select Case lType
        Case REG_SZ:
            sValue = String(cch, 0)
            lrc = RegQueryValueExString(lhKey, szValueName, 0&, _
                lType, sValue, cch)
            If lrc = ERROR_NONE Then
                vValue = Left$(sValue, cch)
            Else
                vValue = Empty
            End If

        Case REG_DWORD:
            lrc = RegQueryValueExLong(lhKey, szValueName, 0&, _
                lType, lValue, cch)
            If lrc = ERROR_NONE Then vValue = lValue
        Case Else
            lrc = -1
    End Select

QueryValueExExit:

    QueryValueEx = lrc
    Exit Function

QueryValueExError:

    Resume QueryValueExExit

End Function


窗口里写:
Private Sub Label14_Click()
    Dim AStr As String
    Dim BStr As String
    Dim ComStr As String
    Dim LinkStr As String
    If Label14  "" Then
        Me.MousePointer = 11
        AStr = QueryValue(HKEY_CLASSES_ROOT, ".html", "")
        If InStr(AStr, Chr(0)) Then
            AStr = Left$(AStr, InStr(AStr, Chr(0)) - 1)
        End If
        BStr = AStr + "\shell\open\command"
        '获得打开html文件的程序的全路径
        ComStr = QueryValue(HKEY_CLASSES_ROOT, BStr, "")
        
        If InStr(ComStr, Chr(0)) Then
            ComStr = Left$(ComStr, InStr(ComStr, Chr(0)) - 1)
        End If
        Shell ComStr    '运行程序
        
        BStr = AStr + "\shell\open\ddeexec\Topic"
        '获得DDE连接打开html文件的命令
        ComStr = QueryValue(HKEY_CLASSES_ROOT, BStr, "")
        If InStr(ComStr, Chr(0)) Then
            ComStr = Left$(ComStr, InStr(ComStr, Chr(0)) - 1)
        End If
            
        BStr = AStr + "\shell\open\ddeexec\Application"
        '获得DDE连接的程序标识
        LinkStr = QueryValue(HKEY_CLASSES_ROOT, BStr, "")
        If InStr(LinkStr, Chr(0)) Then
            LinkStr = Left$(LinkStr, InStr(LinkStr, Chr(0)) - 1)
        End If
            
        Label14.LinkTimeout = -1     '将连接超时限制设定为最大
        '建立连接
        Label14.LinkMode = 0
        Label14.LinkTopic = LinkStr + "|" + ComStr
        Label14.LinkItem = txtURL
        Label14.LinkMode = 2
        Label14.LinkRequest
        Label14.Caption = "主页"
        Me.MousePointer = 0
    End If
End Sub