2013年内蒙口升学考试计算机类VB综合题库.docVIP

VB语言程序设计综合练习一 选择题部分 1 已知A$=，则表达式Val（Left（A$，4）+Mid（A$，4，2））的值为________。 A） 123456 B） 123445 C） 8 D） 6 2 在直角坐标系中，x、y是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式，以下不正确的是______。 A）（x=0 and y=0） and （x=0 and y=0） B）（x=0 and y=0） and （x=0 and y=0） C）x*y=0 D）x*y=Abs（x*y） 3 语句：Print “Sqr（9）=” ; Sqr（9）的输出结果是_______。 A）Sqr（9）= Sqr（9） B）Sqr （9）=3C）”3”=3 D）3= Sqr（9） 4 下面程序段的输出结果为________。 X = 10 ：Y = 20 Print X ；”+” ；Y ；”= ”； Print X + Y A）10 + 20 = 30 B）10 + 20 = 30 C）X+ Y = 30 D）10 + 20 = 30 5 若要处理一个值为50000的整数，应采用哪种VB基本数据类型描述更合适？_______ A）Integer B）Long C）Single D）String 6 以下函数表达式中，其值等于-3的是________。 A）Int（-3.5）B）Fix（-3.5）C）Round（-3.5）D）Abs（-3.5） 7 以下函数表达式中，其值不等于3的是________。 A）Int（3.5）B）Fix（3.5）C）Round（3.5）D）Abs（-3） 8 以下函数表达式中，其值不等于-4的是________。 A）Int（-3.5）B）Fix（-4.5）C）Round（-3.5）D）Abs（-3.5） 9 以下函数表达式中，其值等于4的是________。 A）Int（3.5）B）Fix（3.5）C）Round（3.5）D）Abs（3.5） 10 以下函数表达式中，其值等于3.5的是________。 A）Int（3.5）B）Fix（3.5）C）Round（3.5）D）Abs（3.5） 11.窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（） Dim M（10）， N（10） I = 3 For T = 1 To 5 M（T） = T N（I） = 2 * I + T Next T Print N（I）; M（I） End Sub 窗体运行后，单击命令按钮，输出结果为______。 A）3 11 B）3 15 C）11 3 D）15 3 12. 下列程序段的执行结果为______。 Dim M（10） For I=0 To 9 M（I）=2*I Next I Print M（M（3）） A）12 B）6 C）0 D）4 13 设有如下程序： Option Base O Prvate Sub Form_Click（） Dim a Dim i As Integer a= Array（1，2，3，4，5，6，7，8，9） For i=0 To 3 Print a（5 -i）; Next End Sub 程序运行后，单击窗体，则在窗体上显示的是______。 A）4 3 2 1 B）5 4 3 2 C）6 5 4 3 D）7 6 5 4 14 在窗体上面画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click（） Dim a1（4，4），a2（4，4） For I=1 to 4 For j=1 To 4 a1（I，j）=I+j a2（I，j）=a1（I，j）+I+j Next j Next I Print a1（3，3）;a2（3，3） End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。 A）6 6 B）10 5 C）7 21 D）6 12 15 有以下程序： Option Base 1 Dim arr（） As Integer Private Sub Form_Click（） Dim i As Integer， j As Integer ReDim arr（3， 2） For i=1 To 3 For j=1 To 2 arr（i，j）=i*2+j Next j Next i ReDim Preserve arr（3，4） For j=3 To