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来完成。先定

义一个变量i为整型数据，作为循环控制变量，并给Sum变量赋初值，初值为0。由用户输入一个数值赋给变量n，并将变量n的数据类型转换为数值型。循环变量i从1到n之间发生变化，函数fun利用主程序传递过来的参数，最后要求返回该过程计算的值，变量p用来存放n!，所以最后应该返回变量p的值给调用过程，Function过程通过"过程名=表达式"把值赋给"过程名"，所以Function fun中缺少过程返回值语句，应该填写fun=p，表示过程返回变量p的值。要累计每一项的阶乘的和，因此主程序中缺少累计各项阶乘的的语句，每计算一项阶乘，就将它的值累加给变量Sum，所以Sum变量作为一个累计数，在表达式中既要累计和，又要调用函数的命令，即sum+fun(i)。

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：

Private Sub Form_Load()

Show

Text1.Text = ""

Text2.Text = ""

Text2.SetFocus

End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

Text1.Text = Text1.Text + Chr(KeyCode - 4)

End Sub

程序运行后，如果在Text2文本框中输入"efghi"，则Text1文本框中的内容为_ABCDE_____。

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click()

Dim str As String, s As String, c As String

str = UCase(Text1)

s = ""

c = "Z"

While c >= "A"

If InStr(str, c) = 0 Then

s = s+c或 s&c

End If

c = Chr$(Asc(c) -1 )

Wend

If s <> "" Then

Text1 = s

End If

End Sub

题目要求把输入的字符串中没有的字符显示出来，InStr(str, c) = 0就是指字符串中没有该字符，就要把该字符加入到变量s中，即s=s+c（或s=s & c）；题目是从"Z"到"A"循环查找的，找完一个，就找下一个，而从"Z"到"A"字符的ASCII码是逐渐减小的，所以c =

Chr$(Asc(c)-1)。

在窗体上画一个文本框和一个标签，其名称分别为Text1和Label1，然后编写如下程序：Function fun(s As Integer)

For i = 1 To s

Sum = Sum + i

Next i

fun = Sum

End Function

Private Sub Form_Click()

Text1.Text = Str(fun(5))

End Sub

Private Sub Text1_Change()

Label1.Caption = "VB Programming"

End Sub

程序运行后，单击窗体则文本框中显示的内容是__15____，而在标签中显示的内容是_ VB Programming _____。

启动窗体在__工程属性____对话框中指定。

假定有如下程序，实现在文件中查找指定的字符串：

Private Sub Form_Click()

Q$ = InputBox$("请输入要查找的字符串：")

Open "C:\test\tmp.dat" For Input As #1

x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中

Close

y = __Instr____(1, x$, Q$)

If y <> 0 Then

Print "找到字符串"; Q$

Else

Print "未找到字符串"; Q$

End If

End Sub

请在上面划线处将程序补充完整。

以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。

Private Sub Form_click()

Dim x, y As Single

Dim z As Integer

x = InputBox("Enter a score")

Do while x>=0

y = y + x

z = z + 1

x = InputBox("Enter a score")

Loop

If z = 0 Then

z = 1

End If

y = __y/z____

Print y

End Sub

设有如下程序：

Private Sub Form_Click()

Dim n As Integer, s As Integer

n = 8

s = 0

Do

s = s + n

n = n - 1

Loop While n > 0

Print s

End Sub

以上程序的功能是___求整数1-8之和____。程序运行后，单击窗体，输出结果为__36_____。Do…Loop While语句，是先执行循环体，然后再判断条件，当条件表达式为True时，继续执行循环体，当表达式为False时，退出循环。本题中先执行一次循环体，即s+8，n-1，每执行一次循环体，n就减1，当n<=0时，则退出循环。所以当n=0时，结束循环，此时循环体执行了8次n=8+7+6+5+4+3+2+1=36。所以此程序的功能就是求整数1-8之和。

下面程序的功能是从键盘输入1个大于100的整数m，计算并输出满足不等式

的最大的n。请填空。

Private Sub Command1_Click()

Dim s,m,n As Integer

m=Val(InputBox("请输入一个大于100的整数"))

n=__0____

s=0

Do While s

n = n+1

s = s+n*n

Loop

Print "满足不等式的最大n是";_n-1_____

End Sub

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示"AAAA"（如图所示）；再建立一个名称为Cmd1，标题为"清除"的命令按钮，编写适当的事件过程。要求程序运行后，如果单击"清除"命令按钮，则清除文本框中所显示的信息。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy24.frm，工程文件名为wy24.vbp。

**********************************************************************

（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮（如图所示）。要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个字符串，存入字符串变量a、b中（a、b应定义为窗体变量），如果单击"连接"按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来（在程序中不得使用任何其他变量）。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy25.frm，工程文件名为wy25.vbp。

1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮和一个名为"Text1"的文本框，双击按钮在弹出的代码窗口中写入"Text1.Text="""，然后以文件名wy24.vbp和wy24.frm保存。InputBox语句的使用，其语法为：

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

（1）在考生文件夹下有一个工程文件sj47.vbp，窗体上有一个圆和一条直线（直线的名称为Line1）构成一个钟表的图案；有两个命令按钮，名称分别为Command1、Command2，标题分别为“开始”、“停止”；还有一个名为Timer1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针（即Line1）开始顺时针旋转（每秒转6°，一分钟转一圈）；单击“停止”按钮，则指针停止旋转。运行时的窗体如图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；并编写两个按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其它控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。

********************************************************************

（2）在考生文件夹下有一个工程文件sj48.vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2（如图所示）。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的？改为正确的内容。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

（1）计时器控件的Interval属性

返回或设置对Timer控件的计时事件各调用间的毫秒数。Enable属性可停止或启用计时器。（2）本题主要考查了字符串函数的使用，包括Ucase，Lcase，Mid$

1、Ucase，Lcase分别是将字母转换成大小写的函数；

2、Mid$(f,i,n)返回从字符串f中取出的从第i个字符开始的连续的n个字符组成的字符串。

在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：

在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。

1）按"开始"按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；

2）执行完毕，"开始"按钮变成"完成"，且无效。

语法

dim varname(N)用于定义一维数组，N表示数组元素下标的上界。

Write #filenumber, [outputlist]将数据写入顺序文件。

If condition Then [statements][Else elsestatements]据表达式的值有条件地执行一组语句。

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]用于打开文件

For counter = start To end [Step step]

[statements]

[Exit For]

[statements]

Next [counter]以指定次数来重复执行一组语句。

Close [filenumberlist]关闭 Open语句所打开的输入/输出（I/0）文件。