vb选择填空题

1设计项目文件包含两个表单文件Form1.frm、Form2.frm和一个标准模块文件Module1.bas。 名为Command1的命令按钮在两个窗体中各有一个。Form1的代码如下所示公共x as integer私有子表单加载()x=1y=5日本职业足球联赛私有子命令1 _ click ()Form2.Show日本职业足球联赛Form2的代码如下所示私有子命令1 _ click ()Print Form1.x，y日本职业足球联赛Module1的代码如下所示公共as integer执行上述程序并单击Form1的命令按钮Command1时，将显示Form2。再次单击Form2的命令按钮Command1时，窗体将显示_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _在表单中绘制一个名为TxtA的文本框，然后创建以下事件过程privatesubtxta _ keypress (keyasciisinteger ).日本职业足球联赛假设焦点已经在文本框中，触发KeyPress事件的操作是键盘上的键_。3单击窗体时，以下程序代码的执行结果为_23_47_。私有子表单_单击()第二季日本职业足球联赛私有子测试(x as integer )x=x * 2 1If x 6 Then呼叫测试(x )End Ifx=x * 2 1Print x；日本职业足球联赛在四个窗体上绘制三个标签，三个文本框(分别为Text1、Text2和Text3)和一个命令按钮(Command1)。编写以下程序：私有子表单加载()Text1.Text=Text2.Text=Text3.Text=日本职业足球联赛私有子命令1 _ click ()x=val (文本1 .文本)y=val (文本2 .文本)Text3.Text=f(x，y )日本职业足球联赛函数f (byval x as integer，ByVal y As Integer )Do While y0tmp=x Mod yx=yy=tmpLoopf=x结束函数运行程序，在Text1文本框中键入36，在Text2文本框中键入24，然后单击命令按钮，在Text3文本框中显示_8_。 计算两个个数的最大公约数在6窗体上绘制名为Command1的命令按钮，创建如下程序Option Base 1私有子命令1 _ click ()Dim a(10) As IntegerFor i=1 To 10a(i)=i下一步callswap(_a_For i=1 To 10Print a(i )下一步日本职业足球联赛辅助swap (b () as整合器)n=_ _ _ _ _ _ _ _ _ _For i=1 To n/2t=b(i )b(i)=b(n )b(n)=t_ _ _ n=n-1 _ _ _ _ _下一步日本职业足球联赛上述程序的功能，通过调用程序swap，调换排列中的数值的存储位置，即a(1)和a(10 )的值，调换a(2)和a(9)的值，a(5)和a(6)的值。 请填空栏。假设有程序在一个文件中查找指定的字符串私有子表单_单击()Q$=InputBox$ (请输入要搜索的字符串：)开放 c : 测试 tmp.dat forinputas # 1X$=Input$(LOF(1)，1 )将整个文件的内容导入变量x$Closey=instr(1，x$，Q$ )If y 0 Then找到Print 字符串Q$Else找不到Print 字符串Q$End If日本职业足球联赛执行以下语句时，输出0，abcdefghijk。 (回车)s$=ABCDEFGHIJK print instr(S$，efg )print lcase$(S$ )分析： InStr函数返回Variant(Long )，并指定一个字符串在另一个字符串中的第一个出现位置。语法InStr(start，String1，string2，compare)LCase$(string )返回转换为小写的string。 语法LCase(string )函数将参数字符串的所有大小写转换为小写。 所需的字符串参数可以是有效的字符串表达式。 如果字符串包含Null，则返回Null。在表单上绘制名为Command1的命令按钮，并编写以下事件过程私有子命令1 _ click ()Dim num As Integernum=1dountiuntinum6Print num；num=num 2.4Loop日本职业足球联赛运行程序后，单击命令按钮，窗体将显示内容_ 1，3，5。2 .在表单上绘制名为Command1的命令按钮，并创建以下程序Option Base 1私有子命令1 _ click ()Dim c As Integer，d As Integerd=0c=6x=阵列(2，4，6，8，10，12 )For i=1 To 6If x(i) c Thend=d x(i )c=x(i )Elsed=d - cEnd If下一步Print d日本职业足球联赛运行程序后，单击命令按钮可以输出到表单中的内容为_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的文本框，并创建以下程序私有子表单加载()ShowText1.Text=Text1.SetFocus日本职业足球联赛私有子单元(buttonasint，shiftasint，X As Single，Y As Single )Print 程序设计日本职业足球联赛专用子文本1 _密钥(keycodeasainteger，Shift As Integer )Print Visual Basic ；日本职业足球联赛运行程序后，按a键单击窗体时，窗体将显示_Visual Basic编程_。分析：当程序运行时，焦点位于文本框Text1中，按a键执行Text1_KeyDown事件，窗体显示Visual Basic，然后单击窗体时，Form_MouseUp事件这个问题的答案是d。4 .表单上命令按钮Command1的事件过程如下私有子命令1 _ click ()Dim total As Integer总计=s (1) s (2)打印总计日本职业足球联赛私有函数(MSA integer ) ass integer静态x as integerFor i=1 To mx=x 1下一步s=x结束函数执行程序，第三次点击命令按钮Command1时，输出结果为_16_。6 .在n个选手中选择任意的r人参加比赛，有各种各样的选择。 可以用公式计算选项的数量。 下图窗体中三个文本框的名称分别为Text1、Text2和Text。 执行程序时，在Text1、Text2中分别输入n和r的值，点击Command1按钮，提示选择数，显示在Text3文本框中(参照下图)。 请填空栏。私有子命令1 _ click ()Dim r As Integer，n As Integern=Text1r=文本2Text3=fun(n)/fun(n-r )/fun(r )日本职业足球联赛function fun (ncassinteger ) aslongDim t As LongT=1For k=1 To nt=t * k下一步fun=t结束函数11 .这些步骤包括：私有子表单_单击()Cls公司a$=ABCDFG For i=1 To 6Print Tab(12-i) Mid(a$，7-i )下一步日本职业足球联赛程序运行后，单击表单。 结果如图所示。 请填空栏。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 DoLoopWhile表达式|Until表达式私有子命令1 _ click ()dim s1as字符串，s2as字符串dim I1as整合器S1=0I1=1DoDo While Mid(S1，i1，1 ) Andi1=len (S1 )S2=S2 Mid(S1，i1，1 )I1=I1 1Looplist1.additiveitemtext1.textS2=I1=I1 1Loop While I1=Len(S1)日本职业足球联赛(2)考生文件夹下有项目文件sj62.vbp