vb选择填空题

1 设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。

两个窗体上分别只有一个名称为Command1的命令按钮。

Form1的代码如下：Public x As IntegerPrivate Sub Form_Load()x=1y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下：Private Sub Command1_Click()Print Form1.x, yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是__1 5____2 在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(KeyAscii As Integer)......End Sub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是按下键盘上的某个键_。

3 单击窗体时，下列程序代码的执行结果为__23 47____。

Private Sub Form_Click()Test 2End SubPrivate Sub Test(x As Integer)x = x * 2 + 1If x < 6 ThenCall Test(x)End Ifx = x * 2 + 1Print x;End Sub4 在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1）。

编写如下程序Private Sub Form_Load()Text1.Text=""Text2.Text=""Text3.Text=""End SubPrivate Sub Command1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)End SubFunction f(ByVal x As Integer,ByVal y As Integer)Do While y<>0tmp=x Mod yx=yy=tmpLoopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是__8___。

计算两个数的最大公约数6 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i=1 To 10a(i)=iNextCall swap(_a_____)For i=1 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n=___10___For i=1 To n/2t=b(i)b(i)=b(n)b(n)=t__n=n-1____NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

请填空。

1 假定有如下程序，实现在文件中查找指定的字符串：Private Sub Form_Click()Q$ = InputBox$("请输入要查找的字符串：")Open "C:\test\tmp.dat" For Input As #1x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中Closey = instr(1, x$, Q$)If y <> 0 ThenPrint "找到字符串"; Q$ElsePrint "未找到字符串"; Q$End IfEnd Sub2 执行下列语句后，输出的结果是0、abcdefghijk。

（<CR>为回车）s$="ABCDEFGHIJK" <CR>print instr(S$,"efg") <CR>print lcase$(S$) <CR>解析：InStr函数返回Variant(Long)，指定一字符串在另一字符串中最先出现的位置。

语法 InStr([start, ]string1, string2[, compare])LCase$(string)返回转成小写的String。

语法LCase(string)函数将参数字符串中大写字符全部转化为小写。

必要的string 参数可以是任何有效的字符串表达式。

如果string包含Null，将返回Null。

1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum = 1Do Until num > 6Print num;num = num + 2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_1,3,5。

2.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim c As Integer, d As Integerd = 0c = 6x = Array(2, 4, 6, 8, 10, 12)For i = 1 To 6If x(i) > c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNextPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为__12____。

解析：Array函数是为数组赋值，而Option Base 1是用来设置数组下标是从1开始。

本题中，由于刚开始c 的值为6，故前三个数组值不大于c ，执行三次d = d - c ，d=-18；而后三个数组值都大于c ，执行三次d = d + x(i)，d=-18+8+10+12=12。

3. 在窗体上画一个名称为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print "Visual Basic";End Sub程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是__Visual Basic 程序设计____。

解析：为程序一运行，文本框Text1获得焦点，按下"A"键后，执行Text1_KeyDown 事件，在窗体上显示"Visual Basic"；这时再单击窗体，则触发Form_MouseUp 事件，在窗体上显示"程序设计"。

所以本题答案是D 。

4.窗体上命令按钮Command1的事件过程如下：Private Sub Command1_Click()Dim total As Integertotal=s(1)+s(2)Print totalEnd SubPrivate Function s(m As Integer) As IntegerStatic x As IntegerFor i=1 To mx=x+1Next is=xEnd Function运行程序，第3次单击命令按钮Command1时，输出结果为___16___。

6.在n 个运动员中选出任意r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式!)!(!r r n n 计算。

下图窗体中3个文本框的名称依次是Text1、Text2、Text 。

程序运行时在Text1、Text2中分别输入n 和r 的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。

请填空。

Private Sub Command1_Click()Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun( n-r ) / fun(r)End SubFunction fun(n As Integer) As LongDim t As LongT=1For k = 1 To nt = t * kNextfun = tEnd Function11. 设有如下程序：Private Sub Form_Click()Clsa$="ABCDFG"For i=1 To 6Print Tab(12-i);Mid(a$,7-i)Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。

6 （1）在考生文件夹下有一个工程文件sj61.vbp，相应的窗体文件为sj61.frm。

在窗体上有一个命令按钮，其名称为Command1，标题为“添加”；有一个文本框，名称为Text1，初始内容为空白；此外还有一个列表框，其名称为List1。

程序运行后，如果在文本框中输入一个英文句子（由多个单词组成，各单词之间用一个空格分开），然后单击命令按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图所示。

该程序不完整，请把它补充完整。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

错误！未找到引用源。

第一题主要考查了对字符串的操作，包括Mid与Len函数：Mid(s,i,n)是返回字符串s中从第i个字符开始的连续n个字符组成的字符串；Len(s)是返回变量s的长度（字节数）。

同时还考查了Do循环语句及ListBox控件的使用：Do语句结构如下：Do [While 条件表达式|Until条件表达式]语句[Exit Do] Loop或Do 语句[Exit Do]Loop[While 条件表达式|Until条件表达式] Private Sub Command1_Click()Dim S1 As String, S2 As StringDim I1 As IntegerS1 = 0I1 = 1DoDo While Mid(S1, I1, 1) <> "" And I1 <= Len(S1)S2 = S2 & Mid(S1, I1, 1)I1 = I1 + 1LoopList1.AddItem text1.text' S2 = ""I1 = I1 + 1Loop While I1 <= Len(S1)End Sub（2）在考生文件夹下有一个工程文件sj62.vbp，相应的窗体为sj62.frm。