vb等級考試題目與評析88(參考版)
2024-09-08 16:49本頁面
【正文】 。 stud(j).Name。 本題主要考查自定義數(shù)據(jù)類型。 請將 添加 、 排序 按鈕 Click事件過程中的注釋符去掉，把 ？改為 正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。如圖所示。有三個(gè)標(biāo)題分別為 學(xué)號 、 姓名 和 平均分 的標(biāo)簽；三個(gè)初始內(nèi)容 為空，用于接收學(xué)號、姓名和平均分的 文本框 Text Text2和 Text3；一個(gè)用于顯示排序結(jié)果的圖片框。 打開 ，修改后的代碼如下： Private Sub Form_Load() a0001 End Sub Private Sub Command1_Click() For i = 0 To 1 = i If = Then MsgBox 不允許重復(fù)輸入，請重新輸入 ! Exit Sub End If Next i = End Sub Private Sub Command2_Click() End End Sub 按要求保存文件即完成本題。 ListIndex屬性返回程序運(yùn)行時(shí)，選中列表項(xiàng)在列表中的編號，如選中第一項(xiàng)。 AddItem方法，向列表框添加項(xiàng)目。 打開 ，修改后的代碼如下： Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If (i) = True Then y = Val(Option1(i).Caption) End If Next Call calc(y) End Sub Private Sub calc(y As Integer) ClearList i = 1 x = Val() + 1 Do While i = 5 If x Mod y = 0 Then x i = i + 1
公司管理相關(guān)推薦
鄂ICP備17016276號-1