1，有谁知道上海市有关计算机方面举办的竞赛吗

天山路1800号 一直有比赛 国家性的

有谁知道上海市有关计算机方面举办的竞赛吗

2，卡西欧杯上海市中小学信息科技竞赛的一些问题

两种都可以用，但比赛时要用free pascal； 程序运行时间限制是1秒； 当然不给分！评委的评分器能够识别； 把你的程序拷贝下来，到评委电脑上（开始测评！），然后焦急的等待…… 只能说差不多一样，大多数事件还是一样的。 毕竟一个是全国范围，一个是上海范围……

卡西欧杯上海市中小学信息科技竞赛的一些问题

3，诸位仁兄哪位有历届上海小学生计算机竞赛试卷

http://www.sycste.org/active/filedown/2005_03_05200461fs.doc
http://www.yc vc.jx.cn/hlx/%C4%A3%C4%E2%CA%D4%BE%ED.htm 这个就是! 杂样谢我呢

诸位仁兄哪位有历届上海小学生计算机竞赛试卷

4，用VB实现文本查找和替换

Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdFind_Click()Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As IntegerStrCz = InputBox("你要查找什么？", "查找", "上海市")StrTh = InputBox("你要将查找到的字符替换成什么？", "替换", "南京市")On Error Resume NextI = 0Do DoEvents Txtpape.SetFocus Txtpaper.SelStart = InStr(IntKs + 1, Txtpaper, StrCz) - 1 If Err = 380 Then MsgBox "查找完毕！", vbOKOnly, "查找完毕" Exit Sub End If IntKs = Txtpaper.SelStart + Len(StrCz) Txtpaper.SelLength = Len(StrCz) I = I + 1 lblFinded = "已经找到" & I & "处" K = MsgBox("找到第" & I & "处“" & StrCz & "”，是否替换？", vbYesNo, "找到第" & I & "处“" & StrCz & "”") If K = 6 Then Clipboard.Clear Clipboard.SetText StrTh Txtpaper.SelText = Clipboard.GetText J=j+1 lblReplaced="您替换了" & J & "次！" End IfLoopEnd SubPrivate Sub Form_Load()cmdExit.Caption = "退 出"cmdFind.Caption = "查找替换"Txtpaper = "上海市青少年计算机应用操作竞赛是一项经上海市教委批准，由上海市青少年科技教育中心主办的加分竞赛活动?旨在培养青少年的软件操作和应用能力，适应当今社会科技、信息的飞速发展，激发青少年学生学习计算机的兴趣，早日成为二十一世纪的全能人才。"End Sub更多VB代码请关注我的博客：http://hi.baidu.com/zgmg/blog/item/1384db03008e9884d53f7c35.html
这个必须用RichTextBox控件。工程-部件，调出部件窗口，然后在下面找到Microsoft Rich Textbox Control 6.0，然后打对勾，确定，在工具栏选中RichTextBox控件，放到窗体上。添加两个命令按钮，Caption分别为“查找”和“查找下一个”。将RichTextBox的HideSelection属性设置为False。下面是“查找”按钮的单击事件过程：Private Sub Command1_Click()strfind = InputBox("输入查找内容", "查找")If strfind = "" Then Exit SubIf RichTextBox1.Find(strfind) = -1 ThenMsgBox "未找到“" & strfind & "”。", vbInformation, "提示"strfind = ""End IfEnd Sub下面是“查找下一个”按钮的单击事件过程：Private Sub Command2_Click()Dim a As LongIf strfind = "" ThenCall Command1_ClickElseWith RichTextBox1a = .SelLength.SelStart = .SelStart + aIf .Find(strfind, , Len(.TextRTF)) = -1 Then.SelStart = .SelStart - a.SelLength = aMsgBox "查找结果。", vbInformation, "提示"End IfEnd WithEnd IfEnd Sub
你先要确定你是要哪个版本的哈
很简单啊！！！！你得把需求说清楚！

文章TAG：上海  上海市  青少年  少年  上海市青少年计算机应用竞赛  
下一篇