vb试题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Option Base 1

Private Sub Command1_Click()

d = 0

c = 10

x = Array(10,12,21,32,24)

For i = 1 To 5

If x(i) >c Then

d = d + x(i)

c = x(i)

Else

d = d - c

End If

B．23

在窗体上画1个名称为Command1的命令按钮，并编写以下程序：

Private Sub Command1_Click()

Print fun("ABCDEFG")

End Sub

Function fun(st As String) As String

stlen=Len(st)

temp= ""

For k=1 To stlen/2

temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)

Next k

fun=temp

End Function

程序运行时，单击命令按钮，则在窗体上显示的是______。B．AGBFCE

以下叙述中错误的是______。

A．Visual Basic应用程序既能以编译方式执行，也能以解释方式执行B．一个工程可以包括多种类型的文件

C．程序运行后，在内存中只能驻留一个窗体

D．对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

在窗体上画一个命令按钮（名称为Command1），编写如下事件过程：Private Sub Command1_Click()

b = 5

c = 6

Print a = b + c

End Sub

程序运行后，单击命令按钮，输出的结果是：False_____。

在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。

下面循环语句中在任何情况下都至少执行一次循环体的是______。

D.Do

循环体

Loop Until <条件>

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1）。

编写如下程序

Private Sub Form_Load()

Text1.Text=""

Text2.Text=""

Text3.Text=""

End Sub

Private Sub Command1_Click()

x=Val(Text1.Text)

y=Val(Text2.Text)

Text3.Text=f(x,y)

End Sub

Function f(ByVal x As Integer,ByVal y As Integer)

Do While y<>0

tmp=x Mod y

x=y

y=tmp

Loop

f=x

End Function

运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是_B.__8__

设a = "MicrosoftVisualBasic" ，则以下使变量b的值为"VisualBasic"的语句是__D____。

A.b = Mid(a, 11, 10)

B.b = Right(a, 10) a的后十个字符所组成的字符串

C.b = Left(a, 10) a的前十个字符串组成的字符串

D.b = Mid(a, 10) 从第十个字符起的所有字符串

某人设计了如下程序用于计算并输出7!（7的阶乘）

Private Sub Command1_Click()

t=0

For k=7 To 2 Step -1

t=t*k

Next

Print t

End Sub

执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是______。

C．把t=0改为t=1

下列不能打开菜单编辑器的操作是______。

A．单击工具栏中的"菜单编辑器"按钮

B．按Ctrl+E

C．执行"工具"菜单中的"菜单编辑器"命令

D．按Shift+Alt+M

按Shift+Alt+M不会有任何作用，因为它不是任何功能的组合键。

与数学表达式cos2(a + b) /3x+5，对应的Visual Basic表达式是___cos(a+b)^2/3*x+5___。

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

Private Sub Command1_Click( )

Dim i As Integer

Sum=0

n=InputBox("Enter a number")

n=Val(n)

For i=1 To n

Sum=_sum+fun(i)_____

Next i

Print Sum

End Sub

Function fun(t As Integer) As Long

p=1

For i=1 To t

p=p*i

Next i

_fun=p_____

End Function

以上程序的功能是，计算1!+2!+3!+...+n!，其中n从键盘输入，请填空。

题目要求计算1!+2!+3!+……+n!，其中求每一项的阶乘可以通过调用函数fun来完成。先定