计算机程序设计基础复习题

一、选择：（15题， 15分） 1、以下叙述错误的是（ A）

（A）在解决方案资源管理器窗口中只能包含一个项目文件及属于该项目的其他文件

（B）以.vb为扩展名的文件是包含程序代码的文件

（C）一个窗体文件中含有窗体以及其中所有空间的属性数据和相关程序代码等 （D）一个项目中可以含有多个模块（Module）文件 2、表达式Int(Rnd()*100)+100值的范围是（C ）

（A）0~100 （B）100~100 （C）100~199 （D）0~200 3、下列关系表达式的运算结果为True的是（ C ） （A）11+12=”1112” （B）”11”+”12”=”23” （C）”11” & 12=”1112” （D）”11” & 12=”23” 4、能在文本框TextBox1中显示”ABCD’的程序代码是（ B ） （A）TextBox1.Caption=”ABCD” （B）TextBox1.Text=”ABCD” （C）TextBox1.value=”ABCD” （D）Text=”ABCD”

5、设有一个文本框txtPass，则下列能使其具有输入焦点的语句是（C ） （A）txtPass=setFocus （B）txtPass.setFocus=true （C）txtPass.Focus() （D）Focus=true

6、在程序运行过程中，要使命令按钮btnShow可见，但不可操作，则正确的代码是（ A ）

（A）btnShow.Enabled=False:btnShow.Visible=True （B）btnShow.Enabled=False:btnShow.Visible=False （C）btnShow.Enabled=True:btnShow.Visible=False （D）btnShow.Enabled=True:btnShow.Visible=True 7、以下语句正确的是（ B ）

（A）If a>b Then t=a ; a=b ; b=t （B）If a>b Then t=a : a=b : b=t （C）If a>b Then t=a a=b b=t （D）If a>b Then t=a , a=b , b=t 8、以下循环的执行次数是（ A ） For i=5 to 1 step 0

1

s=s+i

Next

（A）0 （B）1 （C）5 （D）死循环 9、下列数组声明语句中正确的是（ B）

（A）Dim a[5, 5] as Integer （B）Dim a(5, 5) as Object （C）Dim a[m, n] as Double （D）Dim a(m, n) as Single 10、与调用语句Call MySub（100, n）等价的语句是（B ） （A）MySub（100, n） （B）MySub 100, n （C）Call MySub 100, n （D）MySub 100 n 11、以下叙述错误的是（ C）

（A）打开一个解决方案文件时，系统自动装入其有关的窗体、模块等文件 （B）保存Visual Basic .NET程序时，应分别保存窗体文件、模块文件等 （C）Visual Basic .NET应用程序只能在集成开发环境中才能运行 （D）事件可以由用户的动作引发，也可以由系统触发 12、下面表达式中，其值为0的是（C ）

（A）4/5 （B）5 mod 4 （C）4\\5 （D）4 mod 5

13、要改变命令按钮上的标题文字，应设置命令按钮的（ B ）属性值。 （A）Name （B）Caption （C）Text （D）Value

14、要清除一个Text1文本框中得文本，则应在程序代码中输入的语句是（A ） （A）Text1.Clear() （B）Text1.Text=Null （C）Text1.Cls （D）Text=”’ 15、在程序运行过程中，若要使某一文本框控件能用鼠标单击获得焦点，但不能按下Tab键的方式获得输入焦点，则应（B ）

（A）将其Enable属性设置为False，且其TabStop属性设置为False （B）将其Enable属性设置为True，且其TabStop属性设置为False （C）将其Enable属性设置为False，且其TabStop属性设置为True （D）将其Enable属性设置为True，且其TabStop属性设置为True 16、函数IIf（2,3,4）的返回值为：C （A）0 （B）2 （C）3 （D）4 17、下列程序段中，正确的是（ B ）

2

（A）Dim x(4) As Integer={1,2,3,4,5} （B）Dim x() As Integer={1,2,3,4,5}

（C）Dim x(1,2) As Integer={{1,2,3},{4,5,6}} （D）Dim x(,) As Integer={1,2,3,4,5}

18、如果希望参数列表中的某个形式参数为可选参数，则应在该参数的前面加上（ C）关键字。

（A）ByVal （B）ByRef （C）Optional （D）ParaArray 19、在过程内定义的变量（不在语句块中）为（ B ）

（A）全局变量 （B）局部变量 （C）模块级变量 （D）静态变量 二、填空（20空，20分）

1、构成对象的三要素是_属性__________、_______事件____和___方法________。 2、.NET框架主要包括__公共语言执行性_______和__.NETFrameWord类库_________两个组件。

3、与数学表达式cos3(2π)对应的Visual Basic .NET表达式是_cos(2*3.14)^3__________。

4、表达式-20 mod 6 +20.4\\(-7)-Int(Rnd())的值是_______-4___。 5

、

表

达

式

RTrim

（

LCase

（

”Abcd123xyZ”

））

&

Microsoft.VisualBasic.Right(“mnopq”,3)的值是___abcd123xyzopq________。 6、在Visual Basic .NET中，100&、100!、100%、100#、100@表示它们的数据类型分别是__长整型_________、__单精度浮点型_________、整型___________、____双精度浮点型_______、_____货币型______。

7、要使一个文本框具有水平和垂直滚动条，则应先将其__ScrollBars_________属性设置为Both，然后将_Wordwrap__________属性设置为False。

8、在程序运行过程中按下Tab键，将输入焦点从TextBox1文本框转到TextBox2文本框时，TextBox1文本框会发生__LostFocus_________事件，TextBox2文本框会发生_GotFocus__________事件。

9、在程序中，关于数组的说明语句只有一条Dim a(20)，则数组A中共有___21________个元素，数组下标的下界为___0________，上界为____20_______。 10、与数学表达式e-4+lg5对应的Visual Basic .NET表达式是_exp(4)+log10(5)_(备注：括号内和数字10都是上标)_________。

3

11、表达式fix(-100.45)+Int(-100.45)-Sign(-100.45)+val(“100”)的值是__-100_________。 12、设有语句

Dim a As String=”ABCDEFGHIJK”，则语句

Debug.print(Instr(a,”efg”))在输出窗口中输出的是__0_________。 13、要使标签控件中显示的文本在垂直方向上居中，在水平方向上靠右显示，则

应

将

其

__TextAlign_________

属

性

设

置

为

_ContentAlignment.MiddleRight__________。 三、程序填空：（10空， 20分）

1、以下程序计算1+1/3+1/5+?+1/(2n+1)，直到最后一项的值1/(2n+1)小于10，运算结果显示到TextBox1文本框中，将以下程序补充完整。

Private Sub Button1_Click(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s, n, t As Double S=1.0# : n=1.0# Do

n=_2*n+1__________ t=1/n

__s=s+t_________

If t<0.00001 Then ___Exit Do________

-5

Loop End Sub

2、在窗体Form1中添加一个命令按钮Button1和一个文本框TextBox1，然后编写其Click事件过程，程序代码的功能是输入一个数据，然后在已知的数组中查找该数据是否存在，如果存在，则从数组中删除该数据，并将删除指定数据后的数组各元素的值显示到TextBox1文本框中，试将程序补充完整。 Public Class Form1

Private Sub Button1_Click(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n, i, k, x As Integer

Dim a() As Integer={-10,-2,5,8,19,48,62,90,123,500}

4

x=Val(InputBox(“输入待删除的数据”)) __n=UBound(a)_________ For k=0 to n

If x=a(k) Then _Exit For__________

Next If k>n Then

MsgBox(“该数据不存在”)

Else

For i=k+1 to n

__a(i-1)=a(i)_________

Next

___n=n-1________

Redim Preserve a(n) TextBox1.Text=”” For i=0 to n

TextBox1.Text &= a(i) & “ ”

Next End Sub End Class

3、以下程序的功能是统计字符串B在字符串A中出现的次数，然后将结果显示到TextBox1文本框中，将程序补充完整。

Private Sub Button1_Click(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a, b As String, n, i As Integer n=0

a=InputBox(“请输入数据”) b=InputBox(“请输入数据”) i=InStr(a, b)

While(__i<>0_________)

5

本文来源：https://www.bwwdw.com/article/utv7.html