VB题库-上机练习题[1]

jc = result End Function

Private Sub Form_Click() MsgBox jc(3) End Sub

答案： 1). Private Function jc(ByVal n As Integer) As Long 2). result = result * I 或 result = I * result 3).jc = -1 〖第61题〗『程序改错』(1分)(题号:465) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：用InputBox函数输入一个字符串，编写程序按与 ' 输入的字符相反的次序用Msgbox函数输出这个字 ' 符串。如输入字符串为\，则输出为\' gfedcba\，输出效果如图1。 '------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim pristr As String, outstr As String Dim i As Integer

pristr = InputBox(\ '**********FOUND********** For i = 0 To Len(pristr)

'**********FOUND********** outstr = outstr + Mid(pristr, Len(pristr) - i) Next i

'**********FOUND********** MsgBox outstr, , \End Sub

答案： 1). For i = 0 To Len(pristr) - 1

2). outstr = outstr + Mid(pristr, Len(pristr) - i, 1) 3). MsgBox outstr, vbQuestion, \〖第62题〗『程序改错』(1分)(题号:486) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目:窗体的左上角坐标（－8，6），右下角坐标为（8，－6）。 ' 以厘米为单位，以坐标原点为圆心画圆，程序运行界面如图1所示。

'------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click()

'**********FOUND********** ScaleMode = 2 Scale (8, 6)-(8, 6)

'**********FOUND**********'自定义坐标系

49

Line (8, 0)-(8, 0)

'**********FOUND********** Line (0, 6)-(0, 6)

CurrentX = 0.1: CurrentY = -0.1: Print \ '标记坐标原点

CurrentX = 7.5: CurrentY = -0.2: Print \ CurrentX = 0.2: CurrentY = 5.5: Print \ DrawWidth = 3 Circle (0, 0), 4, vbBlue Circle (0, 0), 4, vbGreen, , , 2.5 End Sub

答案：1). ScaleMode = 7 2). Line (-8, 0)-(8, 0) 3). Line (0, 6)-(0, -6)

〖第63题〗『程序改错』(1分)(题号:146) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：用辗转相除法求两个整数的最大公约数。 '------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------

Function gcd(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r <> 0

'**********FOUND********** n = m n = r r = m Mod n Loop

'**********FOUND********** gcd = r End Function

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer a = InputBox(\输入一个整数\ b = InputBox(\输入一个整数\ a = Val(a) b = Val(b)

'**********FOUND********** Call gcd(a, b) Print a, b, c End Sub

答案： 1). m = n 2). gcd = n 3). c = gcd(a, b) 〖第64题〗『程序改错』(1分)(题号:140) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：程序功能为打印下列图形： ' ' ' ' '

* ** *** **** *****

End Sub

Private Sub Form_Load() Dim i As Integer For i = 0 To 9

Me.Combo1.AddItem i Next End Sub

答案： 1). a = Trim(Combo1.Text) 2). For i = 0 To Combo1.ListCount - 1

3). If Combo1.List(i) = a Then Combo1.RemoveItem i 〖第66题〗『程序改错』(1分)(题号:120) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：以下程序段用于打印如下图形式的九九乘法表： '------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click()

dim i as Integer,j as Integer,k as Integer Print Tab(30); \ Print: Print Print \ \For i = 1 To 9

'**********FOUND********** Print Tab(i * 6); I Next i Print For j = 1 To 9 Print j; \ For k = 1 To 9

'**********FOUND********** Print Tab(j * 6); j * k; \ Next k print Next j End Sub

答案： 1). Print Tab(★i★ *★ 6★); ★I;

2). For k = 1 To j 3). Print Tab(★k*★ 6★); ★j ★*★ k★; \〖第67题〗『程序改错』(1分)(题号:462) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：请修改程序中错误，保证程序最后输出效果如图1所示。 '------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ 50

'**********FOUND**********

'------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click() Cls

Dim i As Integer Dim j As Integer

'**********FOUND********** For i = 1 To 7

'**********FOUND********** For j = 1 To 5 '(3) Print \

'**********FOUND********** Next I

'(5) Print Next i End Sub

答案： 1). For i = 1 To 5 2). For j = 1 To i 3). Next j 〖第65题〗『程序改错』(1分)(题号:451) '------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：以下程序是单击命令按钮，将用户在组合框中输入 ' 的某一值，与组合框其他项进行比较，如有相同， ' 则将相同表项删除，其他项不动。 '------------------------------------------------

'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_click() Dim a As String, i As Integer '**********FOUND********** a = Trim(Combo1.Index) If Len(a) <> 0 Then

'**********FOUND********** For i = 0 To Combo1.ListCount '**********FOUND**********

If Combo1.List(i) = a Then Combo1.AddItem i Next i End If

Combo1.SetFocus