04-05(2)vb20xx試卷b-張超宇(參考版)
2024-08-15 07:26本頁(yè)面
【正文】 注：程序?qū)懺诖绑wForm的Click事件中。并在窗體上輸出100~10000之間所有能同時(shí)被17與37整除的數(shù)，每行10個(gè)(2) 由輸入對(duì)話框輸入100個(gè)數(shù)值數(shù)據(jù)放入數(shù)組a。2 程序的運(yùn)行結(jié)果為：35 , 2121 , 1414 , 77評(píng)分標(biāo)準(zhǔn)：每行1分，第四行2分。長(zhǎng)江大學(xué)試卷 學(xué) 院 班 級(jí) 姓 名 班內(nèi)序號(hào) 密 封 線2005年7月《VB程序設(shè)計(jì)》專用答題紙(B卷)注意：姓名、序號(hào)必須寫(xiě)在密封線以內(nèi)；試題答案必須填寫(xiě)在指定的位置。將其中的整數(shù)放入數(shù)組b，然后將數(shù)組b中的數(shù)據(jù)按從大到小的順序排列，并以每行5個(gè)數(shù)據(jù)在窗體上輸出。并在窗體上輸出100~10000之間所有能同時(shí)被17與37整除的數(shù)，每行10個(gè)?！癊”?！癎”……“Y” 174?！癋”，“a” 174。Dim a() As String, n As Integer Private Sub Command1_Click()n = n 1For i = 0 To n 1【1】For j = i+1To n長(zhǎng)江大學(xué)試卷 學(xué)院 班 級(jí) 姓 名 班內(nèi)序號(hào) 密 封 線If a[j]【2】Then imin = j Next j t = a(i) 【3】 a(Min) = tNext i For i = 0 To n a(i) Next iEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then n=0 ReDim【4】 a(n) = 【5】 = n = n + 1 End If (2) 本程序?qū)⒗梦谋究騮xtInput輸入的一行字符串中的所有字母加密，加密結(jié)果在文本框txtCode中顯示。三、程
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1