《Visual Basic程序设计基础》习题 文理学院

A、25 B、\ C、5*5 D、出现错误提示

B、第9列输出字符“#” D、输出10个字符“#”

10．语句“Form1.Print Tab(10);\”的作用是在窗体当前输出行 A 。 A、第10列输出字符“#” C、第11列输出字符“#” 三、填空题

1．语句“Dim C As ”定义的变量C，可用于存放控件的Caption的值。 2．长整型变量（Long类型）占用 个字节。 3．表达式Right(String(65, Asc(\的值是 。 4．表达式2 * 4^3 + 4 * 6 / 3 + 3^2的值是 。 5．表达式16 / 2 - 2 ^ 3 * 7 Mod 9的值是 。 6．表达式81 \\ 7 Mod 2 ^ 2的值是 。

7．已知字符串变量x存放\，表达式Val(\的值是 。 8．语句Print Not 10>15 And 8<5+2的输出结果为 。

9．设x为一个两位数，将其个位和十位数交换后所得两位数的Visual Basic表达式是 。 10．用随机函数产生一个两位整数的Visual Basic表达式是 。 11．求a与b之积除以c的余数，用Visual Basic表达式可表示为 。 12．算术式ln(x)+sin(30o)的Visual Basic表达式为 。 13．声明单精度常量PI代表3.1415926的语句是 。 14．#20/5/01#表示 类型常量。

15．设I为大于0的实数，写出大于I的最小整数的表达式 。 四、程序设计题

1．编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现： （1）界面设计尽可能美观、大方。

（2）创建一个文本框控件用于输入，单击命令按钮后通过标签控件显示计算结果。 （3）修改界面和程序：单击命令按钮后，调用Inputbox函数输入数据，通过标签控件显示计算结果。

（4）新建一个文件夹，保存工程（工程文件、窗体文件等等，可以用缺省的名称，也可以重命名）在该文件夹中，然后退出Visual Basic。

（5）求计算结果具有15位有效位数，重新打开工程，检查程序并决定是否修改。 2．编程，创建文本框控件Text1用于输入，单击窗体后通过标签控件Label1显示计算结果（输入数据自行确定），事件过程如下:

Private Sub Form_Load()

Dim x As Single, y As Single x=Text1.Text

Label1.Caption=Sin(x) End Sub

（1）运行该程序，体会Single类型数据有效位数不超过6位，以及Sin函数的自变量为弧

度制，等等。

（2）修改该程序，体会其他数学函数、字符运算函数的功能以及使用规则。

第3章 结构化程序设计与数组

习 题

一、判断题

1．若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。 2．在行If语句中，关键字End If是必不可少的。 3．块If结构中的Else子句可以缺省。

4．For/Next语句中，循环控制变量只能是整型变量。 5．For/Next语句中，“Step 1”可以缺省。

6．For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。 7．在循环体内，循环变量的值不能被改变。

8．Do/Loop While结构中的循环体，至少被执行一次。

9．Do/Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。 10．使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。 二、选择题

1．下列关于Select Case之测试表达式的叙述中，错误的是 A 。

A、只能是变量名 B、可以是整型 C、可以是字符型 D、可以是浮点类型 2．下列关于Select Case的叙述中，错误的是 D 。 A、Case 10 To 100

表示判断Is是否介于10与100之间

B、Case \ 表示判断Is是否和\、\两个字符串中的一个相同 C、Case \ 表示判断Is是否为大写字母X

D、Case -7,0,100 表示判断Is是否等于字符串\，0，100\3．由“For i=1 To 16 Step 3”决定的循环结构被执行（ C ）次。 A、4

B、5

C、6

D、7

4．若i的初值为8，则下列循环语句的循环次数为 C 次。 Do While i<=17 i=i+2 Loop A、3次 A、4

B、4次 B、5

C、5次 C、6

D、6次 D、0

5．由“For i=1 To 9 Step -3”决定的循环结构被执行 D 次。

6．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 B 。

A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0 三、填空题

1．若x＞y，则交换变量x、y值的行If语句写作 。 2．Select Case结构中测试表达式的值，在其表达式列表中用 表示。

3．用InputBox函数为数组B所有元素B(0)、B(1)、?、B(9)依次赋值的语句写作 。 4．声明动态数组的语句是 语句。

5．语句“Dim c As ”定义的变量c，可用于存放控件的Caption的值。 6．用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。 四、程序阅读题（写出下列程序的运行结果） 程序1. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click()

Dim a As Integer, s As Integer a = 5: s = 0 Do While a< = 0

s = s + a: a = a - 1 Loop Print s; a End Sub

程序2. 请写出输入8、9、3、0后窗体上的显示结果。 Private Sub Form_Click()

Dim i As Integer, sum As Integer, m As Integer Do

m = InputBox(\请输入m\累加和等于\ If m = 0 Then Exit Do sum = sum + m Loop Print sum End Sub

程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(5) As Byte, i As Byte a(0) = 1 For i = 1 To 5

a(i) = a(i - 1) + i: Print a(i); Next i End Sub

程序4. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click()

Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i

For i = 1 To 5 : Print a(i, i); : Next i End Sub

程序5. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click()

Dim i As Integer, j As Integer For i = 1 To 6

Print Spc(6 - i) ;

For j = 1 To (2 * i) - 1: Print \ Print Next i End Sub

程序6. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click()

Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3

a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i End Sub

234n?1n1．【程序说明】下面是一段计算数学表达式 1 ? ? ? ? ? ? ? ? 1 ? 的程序。

2!3!4!n!Private Sub Form Click()

Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox(\请输入N的值:\ s = 0：p = -1：q = 1 For i = 1 To n

p = -p: q = （1） s = （2） （3）

五、程序填空题