VB上机作业.docVIP

一、单项选择题1、（自测练习，提供答案）有如下程序，程序运行后，单击窗体，输出结果为（ ）。 Private Sub Form_Click（）Dim i As Integer，sum As Integersum =0For i=2 To 10 If i Mod 2 0 And i Mod 3 =0 Then sum =sum +iEndIf Next iPrint sumEnd SubA.12 B.30 C.24 D.18答案：A 解答：略 2、（自测练习，提供答案）在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） c=1234c1 = Trim（Str（c））For i=1 To 4 Print____NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1121231234则在下划线处应填入的内容为（ ）。 A. Right（c1，i） B. Left（c1，i） C. Mid（c1，i， 1） D. Mid（c1，i，i）答案：B 解答：c1=Trim（Str（c））的含义是将 变量c转换为字符型再去掉两端空格，操作后c1= 1234。输出的结果分别为c1的第一位，左两位，左三位和左四位，用Left函数。 3、（自测练习，提供答案）在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程。该事件过程的功能是（ ）。 Private Sub Command1_Click（） n = Val（Text1.Text）For i=2 To n For j=2 To Sqr（i） If i Mod j=0 Then Exit For NextjIf j Sqr（i） Then Print i Next iEnd Sub A. 输出 n 以内的奇数 B. 输出 n 以内的偶数C. 输出 n 以内的素数 D. 输出 n 以内能被 j 整除的数答案：C 解答：外循环循环控制变量取值为2到n。内循环结合if语句为标准的判断素数的算法，程序功能是对每个i的取值判断是否为素数，是就输出，即输出 n 以内的素数。 4、（自测练习，提供答案）设有如下程序段，运行后 x 的值是（ ）。 x =2For i=1 To10 Step 3 x =x +iNextA. 18 B. 24 C. 38 D. 57答案：B 解答：根据for循环执行流程运算即可。 5、（自测练习，提供答案）执行以下程序段，输出结果为（ ）。 a=“abbacddcba”For i=6 To2 Step -2 X = Mid（a，i，i）Y = Left（a，i）z= Right（a，i）z= UCase（X Y z） Next iPrint zA. ABA B. BBABBA C. ABBABA D. AABAAB答案：B 解答：根据For循环执行流程结合字符操作函数运算即可。 二、程序填空题 1、（提交作业，无参考答案）输出100～200之间不能被3整除的数，试将横线处的代码补充完整。 Private Sub Command1_Click()  Dim x As Integer  x = 100  Do While （1）  If （2） Then  List1.AddItem x  End If  x = x + 1  Loop End Sub 答案：1空：x200;2空：x mod 30 解答：1空出填写一个条件，x初始值为100，根据要求求100~200内不能被3整除的数，故填写x200；2空填写一个条件，不能被3整除即x mod 30 2、（提交作业，无参考答案）以上程序的功能是 （3） 。程序运行后，单击窗体，输出结果为 （4） 。 Private Sub Form_Click（）Dim n As Integer，s As Integer n =8 s=0Do s=s+ nn = n -1 Loop While n 0 Print sEnd Sub答案：1空：求8 +7 +6 +5 +4 +3 +2 +1的和；2空：36 解答：n初始值为8，Do循环中s=s+n的含义是将n加入和s中；n=n-1的含义是n自减1；即n每加入s中一次就自减1，条件是n0。 三、编程题 1、（提交作业，无参考答案）试编程序，打印出1到500之间所有偶数的和。（代码编写在命令按钮的Click事件过程中，结果输出在窗体上，提交窗体文件，保存名为f