vb等級(jí)考試題目與評(píng)析88-資料下載頁(yè)
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。程序運(yùn)行后，滾動(dòng)框位于滾動(dòng)條最右端，如果單擊滾。動(dòng)條之外的窗體部分，則滾動(dòng)框跳到最左端。1）只能直接為相應(yīng)的屬性賦值，不得使用變量。據(jù)庫(kù)原理"、"概率論"，字體大小均為14，其中"概率論"被禁用。-32768~32768），Min，Value（該屬性表示滾動(dòng)框在滾動(dòng)條上的。為False時(shí)，該控件就被禁用。在"除數(shù)"框架中選擇一個(gè)單選按鈕，然后單擊"處理。在窗體文件中已經(jīng)給出了全部控。加"和"退出"的命令按鈕，1個(gè)內(nèi)容為空的列表框List1。"對(duì)話(huà)框，單擊該對(duì)話(huà)框中的"確定"按鈕，可以重新輸入。改為正確的內(nèi)容，使其實(shí)現(xiàn)上述。本題主要考查了ListBox控件的AddItem方法和Option控件的Value屬性、Caption屬性。中的項(xiàng)目，index為可選的，用來(lái)指定新項(xiàng)目在List1中的位置。Value屬性，使Option控件屬性Value為T(mén)rue時(shí)，單選按鈕被選中。ListCount屬性設(shè)置列表框中的列表項(xiàng)數(shù)目，其值為項(xiàng)目總數(shù)減一。其值為0，選中第二項(xiàng)，其值為1。個(gè)學(xué)生記錄類(lèi)型數(shù)據(jù)StudType。有三個(gè)標(biāo)題分別為"學(xué)號(hào)"、"姓名"和
【正文】 按原文件名存盤(pán)。 本題主要考查自定義數(shù)據(jù)類(lèi)型。 修改后的主要代碼如下： Private Sub Command1_Click() If n 10 Then tag_in = 0 n = n + 1 Else tag_in = 1 MsgBox 輸入的學(xué)生人數(shù)已超過(guò)數(shù)組聲明的個(gè)數(shù)！ End If If tag_in = 0 Then If Text1 = Then MsgBox 學(xué)號(hào)不能為空，請(qǐng)重輸！ n = n 1 Else stud(n).Num = Text1 stud(n).Name = Text2 stud(n).Average = Val(Text3) End If End If Text1 = : Text2 = : Text3 = End Sub Private Sub Command2_Click() Dim t As StudType For j = 1 To n 1 For k = j + 1 To n If stud(k).Average stud(j).Average Then t = stud(k) stud(k) = stud(j) stud(j) = t End If Next k Next j For j = 1 To n stud(j).Num。 stud(j).Name。 stud(j).Average Next j End Sub 按要求保存文件即完成本題。
鄂ICP備17016276號(hào)-1