vb考試模擬試卷-資料下載頁
2025-06-09 21:27本頁面
【正文】 nt + 1 If (2) Then Open D:\ For (3) As 1 For i = 0 To (4) Print 1,(i)Next i Close 1 End IfEnd Sub(1) A、Dim B、Public C、Private D、Static(2) A、count=80 B、count=30 C、count=1800000 D、count=(3) A、Appand B、Output C、Input D、Write(4) A、 B、C、ListCount1 D、ListCount試題三、程序閱讀題（每題5分，本題共20分）1．程序１. 寫出單擊Command1后，窗體上的顯示結果。 Private Sub Command1_Click() Dim a As String, n As Integer, i As Integer a = ABCDEFGH : n = Len(a) For i = 1 To 4 a = Right(a, 1) + Mid(a, 1, n 1) Print a Next i End Sub2．程序2. 寫出單擊Command1后，窗體上的顯示結果。 Private Sub f(a() As Single,n As Integer,x As Single,y As Single) x = a(1) : y = x Do While n = 1 If a(n) x Then x = a(n) Else y = a(n) n =n 1 Loop End Sub Private Sub Command1_Click() Dim b(4) As Single, u As Single, v As Single, k As Integer k = 4: b(1) = 3: b(2) = 9: b(3) = 2: b(4) = 5 Call f(b, k, u, v) Print u : Print v : Print k End Sub3．程序3. 順序?qū)懗鲞\行時在文本框控件Text1中輸入abcd后，列表框控件List1中的各表項。 Dim s As String Private Sub Form_Load() : = End Sub Private Sub Text1_Change() s = s + sEnd Sub4．程序4. 寫出下列程序運行后窗體上的輸出結果。 Dim a(100) As Integer, t As Byte Private Sub Form_Load() = 64 End Sub Private Sub Timer1_Timer() t = t + 1 a(t) = a(t 1) + t = / 4 Print t, a(t)End Sub試題四、程序設計題（第1小題9分，其他各小題10分，共29分）1．編程，100。2．編制事件過程Command1_Click，單擊后可以將坐標原點設置到窗體的中心位置（保持單位長度不變）。3．文件 e:\、學號、三門功課的成績，編程，顯示所有總分小于180分的學生信息。139
教學教案相關推薦
鄂ICP備17016276號-1