vb题

**在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： **在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click() Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是__9____。 *命令按钮事件过程中的For循环的作用是求f(1)+f(2)+f(3)+f(4)+f(5)，然后调用f过程，f过程的主要作用是如果传入的值是偶数，返回值就是这个数本身，如果传入的值是奇数，返回值就是1。 s=f(1)+f(2)+f(3)+f(4)+f(5)=1+2+1+4+1=9 故本 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 答案为C **在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是______。 Private Sub Command1_Click() x = InputBox("请输入整数") a = F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function *函数过程的调用：Function过程的调用跟Visual Basic内部函数一样，格式一般为"变量名=函数名( 参数 转速和进给参数表a氧化沟运行参数高温蒸汽处理医疗废物pid参数自整定算法口腔医院集中消毒供应 表)" 调用Function过程要返回一个值，因此可以像内部函数一样在表达式中使用。由Function过程返回的值放在"表达式"中，并通过"过程名=表达式"把它的值赋给"过程名"。如果在函数过程中省略"过程名=表达式"，则该过程返回一个默认值----数值函数返回0值；字符串*函数过程返回空字符串。因此要在过程体中为"过程名"赋值。 1.如果过程定义为"Static"型的，则过程中的局部变量就是"Static"型的，即在每次调用过程时，局部变量的值保持不变；如果省略"Static"，则局部变量就默认为"自动"的，即在每次调用过程时，局部变量被初始化为0或空字符串。 2.在Sub过程内，不能定义Sub过程或Function过程；不能用GoTo语句进入或转出一个Sub过程，只能通过调用执行Sub过程，而且可以嵌套调用。 3.事件过程是响应某个事件后所执行的一段程序代码。事件名称是由Visual Basic预先定义好的赋予该对象的事件，用户不能自己定义该名称。 4.事件过程可以像通用过程一样由用户定义过程名 **在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x > y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为__2____。 **在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是_15_____。 *观察程序，由于每次执行第二层循环时x都被重新赋值，因此只要看当x=3时，执行第三层循环所得到的结果就可以。 k=1,x=x+6=3+6=9 k=2,x=x+6=9+6=15 最终的输出结果是：15。 **在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap(______) For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n=______ For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t ______ Next End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。《a,10,n=n-1》 **编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下（即不按住Shift键和锁定大写），运行程序，如果按“A”键，则程序的输出是__a____。 **图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_Stretch_____。 *Image控件： Stretch属性：返回/设置一个值，决定是否调整图形的大小以适应图像控件。 Appearance属性：返回/设置一个对象在运行时是否以3D效果显示。 图像框控件无Autosize和AutoRedraw属性。 **x在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 **以.BAS为扩展名的文件是 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件 **窗体文件包含该窗体及其控件的属性 **一个工程中可以含有多个标准模块文件 **执行下列语句后，显示输入对话框，此时如果单击"确定"按钮，则变量strInput的内容是：__"字符串"____。 strInput=InputBox("请输入字符串","字符串对话框","字符串") *InputBox("请输入字符串","字符串对话框","字符串")，其中"请输入字符串"为在文本框显示给用户的信息，"字符串对话框"为显示在输入框标题栏中的标题，"字符串"为在没有用户输入时返回的值。 **能够获得一个文本框中被选取文本的内容的属性是_SelText_____。 *文本框有很多属性，其中Text属性用来设置文本框中显示的内容； SelLength属性存放当前选中的字符数； SelText属性含有当前所选择的文本字符串，如果没有选择文本，则该属性含有一个空字符串。 SelStart属性定义当前选择的文本的起始位置。 **在列表框中当前被选中的列表项的序号是由下列哪个属性表示__在列表框中当前被选中的列表项的序号是由下列哪个属性表示______Listindex____。 *列表框的相关属性： List属性：该属性用来列出列表项的内容。List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值（下标值从0开始）。ListIndex属性：该属性的设置值是已选中的列表项的位置。列表项位置由索引值指定，第一项的索引值为0，第二项为1，依次类推。如果没有选中任何列表项，ListIndex的值将设置为-1。 **VB没有提供下列_MouseExit_____事件。 *MouseDown代表鼠标键在对象上按下，MouseUp代表鼠标键在对象上弹起，MouseMove代表鼠标键在屏幕上移动，而MouseExit不是VB中的事件。 **下列程序段的执行结果为_-3 3_____。 X = 5 Y = -20 If Not X > 0 Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X **在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a = Array(1, 2, 3, 4, 5) Sum = 0 For i = 1 To 5 Sum = Sum + a(i) Next i x = Sum / 5 For i = 1 To 5 If a(i) > x Then Print a(i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_4 5_____。 *Option Base 1：表示数组的下标是从1开始的。 Array函数： 语法：Array(arglist) 所需的arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为0的数组。 说明：用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个Variant的变量 A。第二条语句将一个数组赋给变量A。最后一条语句将该数组的第二个元素的值赋给另一个变量。 Dim A As Variant A = Array(10,20,30) B = A(2) 本题中先定义a = Array(1, 2, 3, 4, 5)，即a(1)=1，a(2)=2，a(3)=3，a(4)=4，a(5)=5，在第一个循环语句中Sum的值就是把这5个值加起来，即Sum=1+2+3+4+5=15，而x=Sum/5=3；在第二个循环中就是打印大于3的值，即4和5。 所以本题答案是D。 *在VB中的布尔型数值的名称为Boolean。 **在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是__12____。 *数组的使用和For--Next循环 跟踪程序：定义了一个二维数组array1，在循环体内，依次将i+j赋给array1(i,j），故array1(2,3)=2+3=5，array1(3,4)=3+4=7。 **大部分控件都没有的属性是_Interval_____。 *Interval属性仅应用于Timer控件。返回或设置对Timer控件的计时事件各调用间的毫秒数。 **请根据以下各小题的要求 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"输出"、"清除"（如图所示）。要求程序运行后，每单击一次"输出"按钮，不使用任何变量而直接在图片框中显示小写字母"red"；如果单击"清除"按钮， 则清除图片框中的内容。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 ********************************************************************** （2）在名称为Form1的窗体上建立一个名称为List1的列表框。 要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem "AAA" 之后， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次（如图所示）。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。 *1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG 或GIF文件的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。也可以用PictureBox控件将OptionButton控件分组，并用该控件显示图形 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 的输出和Print方法写入的文本。Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。 *2、使用AddItem或者 RemoveItem方法可以添加或者删除ListBox控件中的项目。语法为：object.AddItem item, index。本题在list1_click事件中加入"List1.AddItem List1.Text"即可。 **（1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为"学分等级"和"帮助"，名称分别为vbMenu和vbHelp，其中"学分等级"菜单包括"等级A"、"等级B"、"等级C"三个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3。要求程序运行后，如果在"学分等级"的下拉菜单中选择"等级A"，则在文本框内显示："85分以上"； 如果选择 "等级B"，则在文本框内显示："75分至85分"； 如果选择"等级C"，则在文本框内显示："60分至75分"（要求：不能使用任何变量，直接显示字符串）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy5.frm，工程文件名为wy5.vbp。 *********************************************************************** （2）在考生文件夹中有文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。 本题描述如下： 窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"英语班"和"计算机班"；一个名称为C1、标题为"确定"命令按钮。要求程序运行后，如果只选中Ch1，单击"确定"命令按钮，则在文本框中显示："报名参加英语班"；如果只选中Ch2，单击"确定"命令按钮，则在文本框中显示："报名参加计算机班"；如果同时选中 Ch1和Ch2，然后单击"确定"命令按钮，则在文本框中显示："报名参加英语 班和计算机班"；如果Ch1和Ch2都不选，然后单击"确定"命令按钮， 则在文本框中什么都不显示。 *1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单编辑，并可设置菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应的代码。 2、CheckBox控件：该控件可用来提供True/False或者Yes/No选项。组中可以使用CheckBox控件显示多项选择，从而可选择其中的一项或多项。也可以通过对Value属性编程设置CheckBox的值。 **以下所列项目不属于窗体事件的是_SetFocus___。 **在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b = b + 1 End Sub 运行程序，三次单击命令按钮后，变量b的值是：___1___。 *变量定义后，若没有人工定义初值，程序启动后，系统将自动把变量初值设为0。 *复选框和单选按钮的相关属性 Style属性：指定复选框或单选按钮的显示方式 Alignment属性：设置复选框或单选按钮控件标题的对齐方式，可以取0和1两种值，取值为0则控件标题左对齐；取值为1则控件标题右对齐。 **下列操作中不能向工程中添加窗体的是_ 右击窗体，在弹出的菜单中选择“添加窗体”命令_____。 *单击工具栏上的“添加窗体”按钮；执行“工程”菜单中的“添加窗体”命令；右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令 **假定程序中有以下语句： answer = MsgBox("String1",,"String2","String3",2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为：__1____。 **以下叙述中错误的是__用Shell函数可以调用可执行文件，也可调用Visual Basic 的内部函数____。 *用Shell函数可以调用能够在Windows下运行的程序；调用Shell函数的格式应为：<变量名>=Shell(......)；用Shell函数不能执行DOS命令 **在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是_Scroll_____。 **用下面语句定义的数组的元素个数是___9___。 dim A(-3 to 5) as integer **下列程序段的执行结果为__ 10 5____。 A = 0: B = 1 Do A = A + B B = B + 1 Loop While A < 10 Print A; B **在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text = UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为__ABCDEFG____。 **在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x < 20 x = x * 3 n = n + 1 Loop Text1.Text = Str(x) Text2.Text = Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是_27和3_____。 **Select Case语句中的测试表达式只能是数值表达式或字符串表达式 **在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_ 12_____。 *数组的使用和For--Next循环跟踪程序：定义了一个二维数组array1，在循环体内，依次将i+j赋给array1(i,j），故array1(2,3)=2+3=5，array1(3,4)=3+4=7。 **以下语句的输出结果是_032,548.50_____。 Print Format$("32548.5","000,000.00") *因为输出格式已经规定为整数部分三位分割，小数部分共两位。所以32548.5的输出样式应该是032,548.50。 **下列程序段的执行结果为__-3____。 N = 10 For K = N To 1 Step -1 X = Sqr(K) X = X - 2 Next K Print X – 2 **要使一个命令按钮成为图形命令按钮，则应设置其哪一属性值_Style_____。 **VB一共有设计、运行和中断三种模式，要使用调试工具应该__进入中断模式____。 *中断模式是指在开发环境中暂时中止程序的执行。在中断模式下，可以检查、调试、重置、单步执行或继续执行程序。 **在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是__13____。 *本题中For循环语句就是对数组赋值，而arr(i, j) = i * j。故arr(2, 2)=2*2=4，arr(3, 3)=3*3=9，两者相加为13。 **若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_BackStyle_____属性。 **在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和Commondialog1，然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.DialogTitle="打开文件" CommonDialog1.______="All File(*.*)|*.*" CommonDialog1.InitDir="C:\" CommonDialog1.ShowOpen End Sub 该程序的功能是：程序运行后，单击命令按钮，将显示“打开文件”对话框，并在其中显示C盘根目录下的所有目录和文件，请填空将程序补充完整。（filter） **单击窗体时，程序运行的结果是：______ Private Sub Form_Click() multi 20, 3 End Sub Public Sub multi(k As Integer, s As Integer) If k < 50 Then k = k * s Call multi(k, s) End If k = k + k * s Print k; End Sub （240960） **下面的程序用"冒泡"法将数组a中的10个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For i=1 To 9 For j=______ If a(i)>=a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub （i+1 to 10） *最外层的循环负责从第一个元素到第九个元素中取出一个，内层循环负责从外层循环取出的元素的后继所有元素和其比较，如果比外层循环取出者小的话则将二者的位置对换。 **程序执行结果S的值是______。 Private Sub Command1_Click() i = 0 Do s = i + s i = i + 1 Loop Until i >= 4 Print s End Sub （6） **在窗体上画一个命令按钮然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行一面的程序，单击命令按钮，其输出结果是_1234_____。 *由a=Array(1,2,3,4)可知： a(1)=1 a(2)=2 a(3)=3 a(4)=4 执行循环体： s=s+a(i)*j=a(4)*1=4,j=j*10=10 s=s+a(i)*j=4+a(3)*10=34,j=j*10=100 s=s+a(i)*j=34+a(2)*100=234,j=j*10=1000 s=s+a(i)*j=234+a(1)*1000=1234,j=j*10=10000 最终的输出结果是：1234。 **在窗体上画两个列表框，其名称分别为List1和List2，然后编写如下程序： Private Sub Form_ ______() List1.AddItem "语文" List1.AddItem "数学" List1.AddItem "物理" List1.AddItem "化学" List1.AddItem "英语" List1.AddItem "政治" End Sub Private Sub List1_DblClick() List2.AddItem ______.Text List1.RemoveItem List1.ListIndex End Sub Private sub List2_DblClick() List1.AddItem ______.Text List2.RemoveItem List2.ListIndex End Sub 该程序的功能是：程序运行后在左侧列表框中显示各科目的名字，如果双击该列表框中的某个科目，则该科目从该表框中消失，并移到右列表框中；如果双击右侧列表框中的某个科目，则该科目从该列表框中消失，并移向左侧列表框中。请填空将程序补充完整。（load,list1,list2） **以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在______处填入适当的内容，将程序补充完整。 Private Sub Form_Click() Dim x As Single, amax As Single, amin As Single x = InputBox("Enter a score") amax = x amin = x Do While______ If x > amax Then amax = x End If If ______ Then amin = x End If x = InputBox("Enter a score") Loop Print "Max="; amax, "Min="; amin End Sub *本题解题思路： 第一空：由题面的要求“当输入负数时结束输入”，可知Do While循环的终止条件为输入的值小于0，所以此处可以填入：x>=0或0<=0或Int(x)>-1。 第二空：由题意及原程序可知，amin 放最小值，所以，在输入的值比最小值还小时，需要赋值给amin，所以此处可以填入：xx。 **表达式Fix(-32.68)+Int(-25.02)的值为______。 *Fix函数： 返回参数的整数部分，其类型和参数相同。 语法： Int(number) Fix(number) 必要的number参数是Double或任何有效的数值表达式。如果number包含Null，则返回Null。 Int函数： 返回参数的整数部分，其类型和参数相同。 语法： Int(number) Fix(number) 必要的number参数是Double或任何有效的数值表达式。如果number包含Null，则返回Null。 **在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=______ End Sub Private Sub Form_Click() Timer1.Enabled=______ End Sub Private Sub Timer1_Timer() Label1.Caption=______ End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。 （1000，true, time ） **请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为From1的窗体上放置一个名称为Drive1的DriveListBox控件，一个名称为Dir1的DirListBox控件和一个名称为File1的FileListBox控件。程序运行时，可以对系统中的文件进行浏览；当双击File1中的文件名时，用MsgBox显示文件名（不显示路径名）。 *注意： 程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy1.frm，工程文件名为wy1.vbp。 *1、1)DriveListBox1、1)DriveListBox控件：该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。 2) DirListBox控件：这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。 3) FileListBox控件：该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。 语法： DriveListBox DirListBox FileListBox 2、Time函数用来返回当前的系统时间，因此本题的做法可以是： 在窗体的Load事件中，执行这条语句： Text1.Text = Time 将计时器的Interval属性设置为1000毫秒，在计时器的Timer事件中执行如下语句： Text1.Text = Time ********************************************************************** （2）在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。 *注意： 程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy2.frm，工程文件名为wy2.vbp（如下图所示）。 **在VB中可以作为容器的是__Form、PictureBox、Frame_______。 **执行如下语句： a = InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5) 将显示一个对话框，在对话框的输入区中显示的信息是_ Yesterday _____。 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1.Text) If n\2=n/2 Then f=f1(n) Else f=f2(n) End If Print f;n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是_72 36_____。 *在本题中，n\2=n/2条件成立，所以执行f=f1(n)语句，调用f1过程，得到x=x*x=6*6=36，f1=36+36=72。 **在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程： Private Sub Form_Load() Text1.Text = "" Text1.SetFocus For i = 1 To 10 Sum = Sum + i Next i Text1.Text = Sum End Sub 上述程序的运行结果是__出错____。 *焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。 **设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是_ TestDate=#1/1/2002# _____。 *日期型数据用来表示日期信息，其格式为mm/dd/yyyy或mm-dd-yyyy，取值范围为1/1/100到12/31/9999； 日期文字须以符号"#"括起来，例如，#January 1，2002#； Format函数设置日期的格式应当为：Format(MyDate, "dd, mm， yy")。 **对用MsgBox显示的消息框，下面_可以有四个按钮_____是错的。（可以有一个，两个，三个按钮） **设执行以下程序段时依次输入1、3、5，执行结果为___1___。 Dim a(4) As Integer, b(4) As Integer For K = 0 To 2 a(K + 1) = Val(InputBox("请输入数据")) b(3 - K) = a(K + 1) Next K Print b(K) *数组、For--Next循环 跟踪程序段： 以K为循环变量的循环共执行3次 第一次：K=0,a(1)=Val("1")=1,b(3)=a(1)=1 第二次：K=1,a(2)=Val("3")=3,b(2)=a(2)=3 第三次：K=2,a(3)=Val("5")=5,b(1)=a(3)=5 循环结束，由于For--Next循环每次执行完循环体，循环变量都会等于本身的值加上步长值，所以此时K=3,打印b(3)的值，程序段最终输出的结果为：1。 **为了使图片框的大小可以自动适应图片的尺寸，则应_将其Autosize属性值设置为True _____。 *图片框的Autosize属性： 返回或设置一个值，以决定控件是否自动改变大小以显示其全部内容。该属性的值如果是True，则控件根据图片的尺寸自动改变大小；该属性的值如果为False，则控件不改变自身的大小，如果载入的图片尺寸大于控件的尺寸，则将超过控件尺寸的那部分图片剪裁掉。 **要使一个标签透明且不具有边框，则应__将其BackStyle属性设置为0，BorderStyle属性设置为0 ____。 *标签控件的相关属性： BorderStyle属性：用来设置标签的边框，可以取0和1两种值，取值为0，则标签无边框；取值为1，则标签有边框。 BackStyle属性：指出标签的背景样式是透明还是不透明的，可以取0和1两种值，取值为1则标签背景不透明；取值为0则标签为透明的。 **组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和下拉式组合框、可以通过设置组合框的_style_____属性的不同取值来实现。 *对于ComboBox控件，Style属性值为： 0：（缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入。 1：简单组合框。包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输入。简单 组合框的大小包括编辑和列表部分。按缺省规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height 属性值可显示列表的更多部分。 2：下拉式列表框。这种样式仅允许从下拉式列表中选择。 **控件数组的名字由Name属性指定，而数组中的每个元素由__index____属性指定。 *返回或设置唯一的标识控件数组中一个控件的编号。仅当控件是控件数组的元素时是有效的。 语法 object[(number)].Index。 **以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。 Private Sub Command1_Click() Text1.Text = "" For N = 3 To 100 k = Int(Sqr(N)) i = 2 Flag = 0 Do While I<=______ And Flag=0 If N Mod i = 0 Then Flag = 1 Else i = i + 1 Loop If ______ Then Text1.Text = Text1.Text & Chr(13) & Chr(10) & N End If Next N End Sub (k,flag=0) **请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将 List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。 　　 ********************************************************************** （2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。 　 *1、ListBox控件：ListBox控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在ListBox控件上添加滚动条。 语法： ListBox MultiSelect属性:返回或设置一个值，该值指示是否能够在FileListBox或ListBox控件中进行复选以及如何进行复选。在运行时是只读的。 2、UCase函数：返回Variant(String)，其中包含转成大写的字符串。 语法： UCase(string) string参数为任何有效的字符串表达式。如果string包含Null，将返回Null。 说明： 只有小写的字母会转成大写；原本大写或非字母之字符保持不变。 **（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"输出"、"清除"（如图所示）。要求程序运行后，每单击一次"输出"按钮，不使用任何变量而直接在图片框中显示小写字母"red"；如果单击"清除"按钮， 则清除图片框中的内容。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 ********************************************************************** （2）在名称为Form1的窗体上建立一个名称为List1的列表框。 要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem "AAA" 之后， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次（如图所示）。 *注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。 *1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG 或GIF文件的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。也可以用PictureBox控件将OptionButton控件分组，并用该控件显示图形方法的输出和Print方法写入的文本。Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。 2、使用AddItem或者 RemoveItem方法可以添加或者删除ListBox控件中的项目。语法为：object.AddItem item, index。本题在list1_click事件中加入"List1.AddItem List1.Text"即可。 **请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题"…"第八题"，并设置MultiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将 List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。 　　 ********************************************************************** （2）在名称为Form1的窗体上放置一个名称为Text1的文本框。程序运行后，用户在文本框中输入的英文字母一律用大写显示（要求焦点在最右端）。 *注意： 保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。 　 *1、ListBox控件：ListBox控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在ListBox控件上添加滚动条。 语法： ListBox MultiSelect属性:返回或设置一个值，该值指示是否能够在FileListBox或ListBox控件中进行复选以及如何进行复选。在运行时是只读的。 2、UCase函数：返回Variant(String)，其中包含转成大写的字符串。 语法： UCase(string) string参数为任何有效的字符串表达式。如果string包含Null，将返回Null。 说明： 只有小写的字母会转成大写；原本大写或非字母之字符保持不变。 **在3种不同类型的组合框中，只能选择而不能输入数据的组合框是_下拉式列表框_____。 *下拉式列表框：这种样式仅允许从下拉式列表中选择。 （缺省值）下拉式组合框。包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入。 简单组合框。包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输入。简单 组合框的大小包括编辑和列表部分。按缺省规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height属性值可显示列表的更多部分。 **假定有如下程序，实现在文件中查找指定的字符串： Private Sub Form_Click() Q$ = InputBox$("请输入要查找的字符串：") Open "C:\test\tmp.dat" For Input As #1 x$ = Input$(LOF(1), 1) '把整个文件内容读入变量X$中 Close y = ______(1, x$, Q$) If y <> 0 Then Print "找到字符串"; Q$ Else Print "未找到字符串"; Q$ End If End Sub 请在上面划线处将程序补充完整。（instr） **在窗体上画一个命令按钮，然后编写如下程序： Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num \ 10) num = num \ 10 Loop fun = k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox("请输入一个数") n = CLng(n) r = fun(n) Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为__0____。 **InputBox函数返回值的类型为_字符串_____。 **能够获得一个文本框中被选取文本的内容的属性是_SelText_____。 **文件列表框控件的_Pattern_____属性用来确定在列表框中显示的文件类型。 *Pattern属性返回或设置一个值，该值指示在运行时显示在FileListBox控件中的文件类型。 **设有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n=InputBox("输入数据") If n<10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b() As Integer,n As Integer) Dim c(10) As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下叙述中错误的是_GetArray过程的参数n是按值传送的_____。（数组b中的偶数被保存在数组c中，程序运行结束时，在窗体上显示的是c数组中元素的个数，如果输入的数据大于10，则窗体上不显示任何信息） *程序中的变量j表示数组c的下标，它的值是从1开始的（因为先运行了j=j+1)，j的值就是数组C中元素的个数，数组c中存放的是数组b中的偶数。所以选项A和B的说法都是对的。 而在VB中，参数的传递方式有两种，一种是按地址传递（ByRef，默认），一种是按值传递（ByVal），C选项中说参数n是按值传递的，显然是错误的，它应该是按地址传递的。 所以本题的答案是C。 **1.模块变量包括窗体变量和标准模块变量，窗体变量可以作用于该窗体的所有过程。全局变量只能在标准模块中声明，不能在过程或窗体模块中声明。 2.在过程（事件过程或通用过程）内定义的变量叫做局部变量，其作用域是它所在的过程。某一过程的执行只对该过程内的变量产生作用，对其他过程中相同名字的局部变量没有任何影响。因此，在不同的过程中可以定义相同名字的变量，它们之间没有任何关系。如果需要，则可以通过"过程名.变量名"的形式分别引用不同过程中相同名字的变量。 3.在过程中的局部变量，如果过程定义使用了Static，则过程中的局部变量就是"Static"型的，即在每次调用过程时，局部变量的值保持不变；如果省略"Static"，则局部变量就默认为"自动"的，即在每次调用过程时，局部变量被初始化为