上海市青少年科技創新大賽計算機，有誰知道上海市有關計算機方面舉辦的競賽嗎

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

1，有誰知道 上海市有關計算機方面舉辦的競賽嗎

天山路1800號一直有比賽國家性的

有誰知道上海市有關計算機方面舉辦的競賽嗎

2，卡西歐杯上海市中小學信息科技競賽的一些問題

兩種都可以用，但比賽時要用free pascal；程序運行時間限制是1秒；當然不給分！評委的評分器能夠識別；把你的程序拷貝下來，到評委電腦上（開始測評?。缓蠼辜钡牡却? 只能說差不多一樣，大多數事件還是一樣的。畢竟一個是全國范圍，一個是上海范圍……

卡西歐杯上海市中小學信息科技競賽的一些問題

3，上海市青少年科技創新大賽一個人可以申報兩個項目嗎

可以以社會人員身份報名參加普通高考：　　一、沒有年齡限制，但有學歷限制；　　（1）目前我國的高考制度已經取消了年齡上限的限制，只要你愿意就可以參加高考；　?。?）符合高中畢業或具有同等學歷的就都可以報名參加高考。　　二、社會人員參加高考，報名時要帶上你的高中畢業證或同等學歷證書、身份證、戶口簿即可。　　三、參加高考有的省是在網上統一報名，有的省是自己到區市縣招辦去報名，所以你要到你省招辦的網站上去看看你省的規定。

海南省的青少年科技創新大賽原則上只能一個人報兩個（最多）項目按照你的情況我建議你以不同的個體去報比如找你好朋友同學等但是注意是要青少年去報數個項目最后你有好消息的時候記得通知我們團隊哦

上海市青少年科技創新大賽一個人可以申報兩個項目嗎

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

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