公用频道吧public_public吧

01月08日漏签0天

public吧关注：2,311贴子：16,871

14回复贴，共1页

<返回public吧

公用频道吧public

只看楼主收藏回复

欢迎光临公用频道吧这个平台，希望用大家的智慧为您提供和解决所遇到的难�

送TA礼物

1楼2005-03-28 21:46回复

枯水期。。。干涸状态~0~

4楼2005-04-02 11:54

呵呵，水来了，虽然我是鱼，不过可以分一杯水给你哦�

IP属地:湖南

5楼2005-04-08 11:06

hehe~清幽别苑，再枯也安逸，分来的水喝了就好哈哈

6楼2005-04-09 00:02

唉！你的破庙都要长黄草了，真是萧条，呵呵，你还有时间转吧�

IP属地:湖南

7楼2005-04-11 15:50

自己灌水用的坛子嘛
呵呵随便点也�

8楼2005-04-12 14:33

222.160.74.*

hehe~清幽别苑，再枯也安逸，分来的水喝了
顶你

9楼2005-12-26 17:32

222.160.74.*

唉！你的破庙都要长黄草了，真是萧条，呵呵，你还有时间转吧？
你是和尚啊？

10楼2005-12-26 17:33

222.160.74.*

秃驴

11楼2005-12-26 17:34

222.240.219.*

Highway infrastructure planning is most often oriented toward assessing and maintaining physical inventories but it is often the lack of social knowledge about how people perceive, value and use a transportation system that generates the greatest user conﬂict and mistrust of public agency behavior.
高手帮忙翻译一下！！

12楼2006-05-25 12:44

221.201.143.*

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>您未被授权查看该页</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=GB2312">
<STYLE type="text/css">
BODY { font: 9pt/12pt 宋体 }
H1 { font: 12pt/15pt 宋体 }
H2 { font: 9pt/12pt 宋体 }
A:link { color: red }
A:visited { color: maroon }
</STYLE>
</HEAD><BODY><TABLE width=500 border=0 cellspacing=10><TR><TD>

<h1>您未被授权查看该页</h1>
您不具备使用所提供的凭据查看该目录或页的权限。
<hr>
<p>请尝试以下操作：</p>
<ul>
<li>如果您认为自己应该能够查看该目录或页面，请与网站管理员联系。</li>
<li>单击<a href="javascript:location.reload()">刷新</a>按钮，并使用其他凭据重试。</li>
</ul>
<h2>HTTP 错误 401.1 - 未经授权：访问由于凭据无效被拒绝。<br>Internet 信息服务 (IIS)</h2>
<hr>
<p>技术信息（为技术支持人员提供）</p>
<ul>
<li>转到 <a href="http://go.microsoft.com/fwlink/?linkid=8180">Microsoft 产品支持服务</a>并搜索包括“HTTP”和“401”的标题。</li>
<li>打开“IIS 帮助”（可在 IIS 管理器 (inetmgr) 中访问），然后搜索标题为“身份验证”、“访问控制”和“关于自定义错误消息”的主题。</li>
</ul>

</TD></TR></TABLE></BODY></HTML>

请大家帮帮我看看这是什么东西哇??

13楼2006-08-14 11:45

122.228.131.*

Public Sub Uppersen()
'该过程是将一个英文句子的每个单词的首字母都变成大写。
'从键盘上任意输入一条英文句子，
'将句子中的每个单词的首字母都变成大写
'例如：输入I am a good student.
'要求输出I Am A Good Student.
Dim oldsen As String, newsen As String
Dim char As String, lastchar As String
Dim k As Integer, i As Integer
oldsen = InputBox("请输入英文句子：")
k = -------1--------
'以空格作为单词的界定，空格后的字母转换为大写字母
lastchar = ---------2--------
For i = 1 To k
char = ------3--------
If lastchar = " " Then
char = UCase(char)
End If
newsen = newsen & char
lastchar = char
Next i
Form1.Print "input:"; oldsen
Form1.Print "output:"; newsen
End Sub

15楼2009-04-14 22:19