第四次课例题

第四次课例题

1、下面表达式的值是False的是:

A) “n”&“969”<“n97”

B)InStr(“visualbasic”,“b”) < Len(“basic”)

C) Str(2000)<“1997”

D) Ucase(“aBC”)<“aBC”

2、设a=“Visual Basic”，下面使b=“Basic”的语句是

A) b=Left(a,8,12) B) b=Mid(a,8,5) C) b=Rigth(a,5,5) D) b=Left(a,8,5)

3、若I,J均是整型变量，一个自定义过程如Private exp1(x As Integer, s As String)。下面对该过程调用的语句正确的是：

A) exp1 (12, “123”) B) exp1 (I), (J)

C) call exp1(I, J) D) call exp1(12, J)

4、下列表达式的值为2123的是：

A) Val(“123asd”) & 2000 B) Val(“123asd”) + 2000

C) Str(123) & “2000”D) Str(123) + “2000”

5、表达式Str(Len(“123”))+Str(77.7)的值是：

A) 3+77.7 B) 377.7 C) 80.7 D) 12377.7

6、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click()

For I=1 To 4

For J=0 To 1

Print Chr$(65+I);

Next J

Print

Next I

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A) BB B) A C) B D) AA

CC BB CC BBB

DD CCC DDD CCCC

EE DDDD EEEE DDDDD

7、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：

Private Sub Command1_Click()

Dim x, y, z As Integer

x=5

y=7

z=0

Text1.text=“”

Call P1(x, y, z)

Text1.Text=Str(z)

End Sub

Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)

c=a+b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A) 0 B) 12 C) Str(z) D) 没有显示

8、为达到把a、b中的值交换后输出的目的，某人编程如下：

Private Sub Command1_Click()

a% = 10:b% = 20

Call swap(a,b)

Print a,b

End Sub

Private Sub swap(ByVal a As Integer, ByVal b As Integer)

c= a: a=b: b=c

End Sub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A）调用swap过程的语句错误，应改为Call swap a,b

B）输出语句错误，应改为：Print ”a”,”b”

C）过程的形式参数有错，应改为：swap(ByRef a As Integer, ByRef b As Integer) D）swap中3条赋值语句的顺序是错误的，应改为a=b: b=c: c=a

9、某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：Function Maxvalue(a() As Integer) As Integer

Dim max%

max=1

For k = 2 To 10

If a(k)>a(max) Then

max = k

End If

Next k

Maxvalue = max

End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A）语句max = 1应改为max = a(1)

B）语句For k = 2 To 10应改为For k = 1 To 10

C）If语句中的条件a(k)>a(max)应改为a(k)>max

D）语句Maxvalue = max 应改为Maxvalue = a(max)

10、假定有以下函数过程：

Function Fun(S As String) As String

Dim s1 As String

For i = 1 To Len(S)

s1 = UCase(Mid(S, i, 1)) + s1

Next i

Fun = s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1 = InputBox("请输入一个字符串")

Str2 = Fun(Str1)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为

A）abcdefg B）ABCDEFG C）gfedcba D）GFEDCBA

11、设有如下通用过程：

Public Sub Fun(a(), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

Text1.Text = n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

A）10 B）15 C）25 D）24