VB语言程序设计-在线作业-.docxVIP

VB语言程序设计_在线作业_1一、单选题?(?每题5分,?共20道小题,?总分值100分?)1.在窗体上有一个标签框控件，名称为LblTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序代码为：Private Sub Timer1_ ______ ( )?LblTime.Caption = TimeEnd Sub在下划线上应填入的内容是（?）。(5分)A.?VisibleB.?TimerC.?IntervalD.?Enabled是否存疑2.表达式4 + 5 6 * 7 / 8 Mod 9的值是（?）。(5分)A.?4B.?6C.?5D.?7是否存疑3.语句Print 5 * 5 5 / 5的输出结果是（?）。(5分)A.?25B.?1C.?0D.?5是否存疑4.通过改变单选按钮控件的什么属性值，可以改变单选按钮的选取状态（?）。(5分)A.?ValueB.?AppearanceC.?StyleD.?Caption是否存疑5.设a = 6，则执行x = IIf(a 5, -1, 0)后，x的值为（?）。(5分)A.?5B.?6C.?-1D.?0是否存疑6.设置复选框或单选按钮标题对齐方式的属性是（?）。(5分)A.?AlignB.?AlignmentC.?SortedD.?Value是否存疑7.阅读下面的程序：Function func(n As Integer) As Integer?Sum = 0?For i = 1 To n?Sum = Sum + (i + 1) * i?Next i?func = SumEnd FunctionPrivate Sub Command1_Click()?Dim a As Integer?a = 5?s = func(a)?Print sEnd Sub程序运行后，单击命令按钮，输出结果为（?）。(5分)A.?15B.?80C.?60D.?70是否存疑8.按文件存取方式和结构来区分有（?）。(5分)A.?顺序文件和随机文件B.?ASCII文件和二进制文件C.?磁盘文件和打印文件D.?程序文件和数据文件是否存疑9.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（?）。(5分)A.?Picture1.Print 25B.?Debug.Print 25C.?Print 25D.?Text1.Print 25是否存疑10.在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()?x = 0?Do While x 50?x = (x + 2) * (x + 3)?n = n + 1?Loop?Text1.Text = Str(n)?Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（?）。(5分)A.?3和50B.?1和0C.?4和168D.?2和72是否存疑11.下列程序段的执行结果为（?）。?x = 3: y = 4If x y Then Print y;: Print x(5分)A.?4B.?4? 3C.?3D.?3? 4是否存疑12.下面控件中，用于将对象分组的是（?）。?(5分)A.?框架B.?文本框C.?复选框D.?窗体是否存疑13.以下语句的输出结果是（?）。a = Sqr(3)Print Format(a, $$####.###)(5分)A.?$$0001.732B.?$1.732C.?$1732D.?$$1.732是否存疑14.阅读下面的程序：Function Func(x As Integer, y As Integer) As Integer?Dim n As Integer?Do While n = 4?x = x + y?n = n + 1?Loop?Func = xEnd FunctionPrivate Sub Command1_Click()Dim x As Integer, y As Integer, n As Integer, z As Integer?x = 1: y = 1?For n = 1 To 6?z = Func(x, y)?Next n?Print zEnd Sub程序运行后，单击命令按钮，输出结果是（?）。(5分)A.?16B.?26C.?21D.?31是否存疑15.一个语句如果在下一行继续写，应在本行尾部加符号（?）。(5分)A.?_B.?;C.?,D.?:是否存疑16.使用通用对话框控件时，要在打开的对话框的标题栏上显示“保存文件”，应把这4个汉字赋给的属性变量是（）(5分)A.?F