vb试题选择题.doc

1，单选题 在窗体上面一个命令按钮Command1，然后编写下面代码， Private Sub Commang1_Click Dim Arr1(10) As integer, Arr2(10) as integer N=3 For i=1 to 5 Arr1(i)=i Arr2(n)=2*n+i Next i Print Arr2(n);Arr1(n) 程序运行后，单击单击heng Print Arr2()Click命令按钮，输出结果是（ B ） （A） 3 11 （B） 11 3 （C） 13 3 （D） 3 132， 单选题 下列程序段的输出结果是（ A ）A=0Print a+1A=3（A） 1（B） 0（C） -1（D） 3 3 单选题 使按钮获得焦点的方法是（ D ）（A） Move（B） Gotfocus（C） Lostfocus（D） Setfocus4 单选题 以下四种描述中错误的是（ A ）（A） 符号常量的使用和变量的使用没有差别（B） 常量又可以分为文字常量和符号常量（C） 文字常量也就是常数，一般包括字符串常量和数值常量两种（D） 符号常量是用一个标识符来代表一个常数，就像是为常数取一个名字去一个名字用一个标识符来表示，但仍保持常数的性质 5 单选题 假定有以下循环， While Not 条件 循环体 Wend则执行循环体的“条件”是（ D ） （A）1 （B）1 （C）True （D）False6 单选题 计时器控件的Timer1事件经过一定的时间间隔就发生一次，时间间隔由（ C ）属性决定。（A） Enabled（B） Timer（C） Interval（D） Index7 单选题 没有如下通用过程，Public Function f(x as integer)Dim y as integerX=20 Y=2F=X*YEnd function在窗体上画一个名称为Command1的命令按钮，然后编写如下过程，Private Sub Command1_Click()Static x as integerX=10Y=5Y=f(x)Print X;YEnd Sub程序程序ebx x as integeras integer运行后，如果单击命令按钮，则在窗体上显示的内容是（ B ）（A）10 5（B）20 40（C）20 5（D）10 40如下 danxuanti表一个常数，就像是为常数去8、 【单选题】在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(5) as stringFor i =1 to 5a(i)=chr(asc( A)+(i-1) )Next iFor each b in aPrint b;End sub程序运行后，单击命令按钮，输出结果是 ( A )。(A） 出错信息(B） ABCDE(C） 12345(D） abcde9、 【单选题】在程序运行期间，当滚动条的滑块被拖动时，则立即触发滚动条的事件。 （ C ）（A） Scroll（B） Click（C） Change （D） dblclick10、 【单选题】在窗体上画一个命令按钮Command1和一个文本框text1,然后编写下列程序：Private Sub Command1_Click()A=inputbox(请输入日期（1-31）)T=旅游景点: &iif(A0 and A10 and a20 and a=30,北海, )Text1.text=tEnd sub程序运行后，如果从键盘输入5，则在文本框中显示的内容是 ( C ) 。 （A) 旅游景点：北海 （B）旅游景点：长城北海 （C）旅游景点：长城 （D）旅游景点：故宫11、 【单选题】图相框的属性，可以自动调整图形的大小以适应图形的尺寸。( D )（A） Autodraw（B） Appearance（C） Stretch（D） Autosidze12、【单选题】表达式Right(“Beijing”,4)的值是？( C )A、ijin B、Beij C、jing D、eiji13、【单选题】有如下程序：s$=“ABCXYZ”t$=“123456”for j=1 to 5 step 2 Print mid$(s$,j,1)+mid$(t$,(j+1)/2,1);Next j PrintEnd运行时输出的结果是？ ( A )A、 A1C2Y3 B、ABC123 C、ACY246 D、A2B4C614、【单选题】运行下面的程序，单击命令按纽，输出结果为？ ( A )Sub subP(b() As Integer) for i=1 to 4 b(i)=2*i next iend subPrivate Sub Command1_Click() Dim a (1 to 4)As Integer a(1)=1 a(2)=2 a(3)=3 a(4)=4 subP a() for i=1 to 4 print a(i); next iend subA、2468 B、出错 C、5678 D、10 12 14 1615、【单选题】阅读程序 在窗体上画一个文本框和一个列表框，然后编写下列两个事件过程： Private Sub Form_Load() List1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” End Sub Private sub list1_Click() m=List1.Text Print m+Text1.text End Sub程序运行后，在文本框中输入“123”，然后单击列表框中的“456”，输出结果是？( A )A、456123 B、1245 C、0 D、12345616、【单选题】假定有如下的SUB过程，在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果为？ ( B ) Sub s(x as single,y as single) t=x x=t/y y=t mod y end subprivate sub command1_click() dim a as single dim b as single a=5 b=4 call s(a,b)print a,bend subA、1.25 4 B、1.25 1 C、1 1 D、5 4 17、【单选题】可假设有文件列表框FILE1、驱动器列表框DRIVE1和目录列表框DIR1，为了使三者同步，在下列语句中，正确的语句是？ A、DIR1.PATH=DRIVE1.PATH B、FILE1.FILENAME=DIR1.FILENAME C、FILE1.PATH=DIR1.PATH D、DIR1.FILENAME=DRIVE1.DRIVE18、【单选题】在窗体上添加一个文本框Text1,然后编写如下Load事件过程，则程序运行结果是？ ( B ) Private Sub Form_load()Text1.Text = Text1.SetFocus For k=1 to 5 T=t*k Next kText1.Text=tEnd SubA、 文本框中显示120 B、 错误C、 文本框中仍在空D、 在文本框中显示119、【单选题】要设定文本框中的文字内容是否允许修改，应该设置的属性是？ ( B ) A、Te