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