上海市青少年計算機應用競賽，有誰知道上海市有關計算機方面舉辦的競賽嗎

來源：整理時間：2023-07-07 05:51:48 編輯：上海生活手機版

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

你先要確定你是要哪個版本的哈

很簡單啊！！！！你得把需求說清楚！