VB中期测试考试卷（答案）解读 - 图文

江 南 大 学 考 n = n – m Loop Loop Print m End Sub 本题 得分 二、写出程序运行结果〖每空2分，共计20分〗； 说明：执行下述程序，按输出格式要求写出运行结果。 1. 执行下面程序，单击命令按钮Command1，窗体上显示的第一行内容是 【1】 ，第二行内容是 【2】 ，第三行内容是 【3】 ，最后一行内容是 【4】 。 Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 1 b = 5 For i = b To a Step -1 a = a + 1 b = b + a If b > 30 Then Exit For Print a, b Next i Print a, b End Sub 2. 执行下列程序，单击按钮Command1，窗体上显示的第一行内容是 【5】 ，第二行内容是 【6】 ，第三行内容是 【7】 。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 4 : b = 3 Do Until a > 10 b = b / 2 Do Until b > 10 a = (a + b) \\ 2 + b b = b + 5 Print a, b Loop a = a - 3 Loop End Sub - １３ -

试 卷 专 用 纸 3. 执行下面的程序，单击窗体后，窗体上显示的第一行内容是 【8】 ，第三行内容是 【9】 ，最后一行内容是 【10】 。 Private Sub Form_Click() Dim x As Integer, y As Integer, sum As Integer For x = 1 To 3 For y = 1 To 2 sum = sum + y If sum > 2 Then Exit For Next y Print sum; x Next x Print x; y End Sub 本题 得分 三、程序完善题〖每空2分，共计38分〗； 1. 在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值设为False，Interval属性值设为100，要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆，其效果如图所示。 Dim a As Integer, b As Integer Private Sub Form_ 【1】 (Button As Integer, Shift As Integer, X As Single, _ Y As Single) a = X : b = Y Timer1.Enabled = 【2】 End Sub Private Sub Timer1_Timer() Form1.Circle (a, b), 100 End Sub 2. 设窗体上有一名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键停止实时显示，并将标签中内容清除。 Dim Down As Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single) Select Case 【3】 Case 1 : Down = True Case 2 : Down = False End Select End Sub - １４ -

江 南 大 学 考 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, _ Y As Single) If 【4】 Then 【5】 = \ Y=\ Else Label1.Caption = \ End If End Sub 3. 在窗体上画一个命令按钮，其名称为Private Sub Command1_Click() Command1，其名称为Command1， x = 1 : result = 1 然后编写如下事件过程，用来计算10 While x <= 10 的阶乘。请填空。 result = 【6】 x = x + 1 Wend Print result End Sub 4. 在窗体上画一个命令按钮，其名称为Private Sub Command2_Click() Command2，然后编写如下事件过程： t = 0: m = 1: Sum = 0 该程序的功能是，单击命令按钮，则计 Do 算并输出一下表达式的值：1 + (1 + 3) + t = t + 【7】 (1 + 3 + 5) +… + (1 + 3 + 5 + … + 39) Sum = Sum + t m = m + 2 Loop While 【8】 Print Sum End Sub 5. 窗体上有一个名称为List1的列表框，列表框中有若干数据项，列表框的Style属性为1；有一个名称为Label2的标签；还有一个名称为Command1，Caption属性为“计算”的命令按钮（见图）。运行程序，在列表框中选中某些数据项后，单击命令按钮，则可以计算所选数据之和，并将结果显示在标签Label2中。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click() s = 0 For i = 0 To List1.ListCount - 1 If 【9】 Then s = s + 【10】 Next Label2.Caption = 【11】 End Sub - １５ -

试 卷 专 用 纸 6. 用以下公式求f(x)的值。当通项的绝对值小于10-7时停止计算，x的值由键盘输入。 Private Sub Command1_Click() Dim x As Single, fx As Single, a As Single, a1 As Single, a2 As Single, t As Single a1 = 1: a2 = 2 : x = Text1 If 【12】 Then MsgBox \必须在-1~1之间\ End If fx = a1 * x - a2 * x * x t = (-1) * x * x Do a = 1 / (a1 + a2) t = (-1) * t * x fx = 【13】 f(x)?a1x1?a2x2?a3x3???(?1)n?1anxn??x?1 a1 = a2 【14】 1其中a1?1，a2?2，an?，n?3,4,5?an?2?an?1 Loop 【15】 < 0.0000001 Text2 = fx End Sub 7. 在窗体上画1个名称为Command1的命令按钮，然后编写如下程序。程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。 Private Sub Command1_Click() Dim m As Integer, x As Integer, flag As Boolean flag = 【16】 n = Val(InputBox(\请输入任意1个正整数\ Do While Not flag a = 2 flag = 【17】 Do While flag And a <= Int(Sqr(n)) If n / a = n \\ a Then flag = False Else 【18】 End If Loop If Not flag Then n = n + 1 Loop Print 【19】 End Sub - １６ -