填空题 | 以下是一个计算矩形面积的程序,调用过程计算矩形面积,请将程序补充完整。 Sub RecArea(L, W) Dim S As Double S=L * W MsgBox "Total Area is " & Str(S) End Sub Private Sub Command1_Click() Dim M, N M=InputBox("What is the L?") M=Val(M) ______ N=Val(N) ______ End Sub |
查看答案 |
填空题 | 在KeyPress事件过程中,KeyAscii是所按键的 ______ 值。 | 查看答案 |
填空题 | 有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single, y As Single Open "NM1.txt" For Input As #1 Open "NM2.txt" For Input As #2 Do While Not EOF(1) ______ Print x y=x ^ 2 ______ Print y Loop Close #1, #2 End Sub |
查看答案 |
填空题 | 数据结构分为逻辑结构与存储结构,线性链表属于 ______ 。 | 查看答案 |
填空题 | 在面向对象方法中,类之间共享属性和操作的机制称为 ______ 。 | 查看答案 |
填空题 | 耦合和内聚是评价模块独立性的两个主要标准,其中 ______ 反映了模块内各成分之间的联系。 | 查看答案 |
填空题 | 一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于 ______ 的联系。 | 查看答案 |
填空题 | 数据库设计分为以下6个设计阶段:需求分析阶段、 ______ 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。 | 查看答案 |
填空题 | 新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下: Private Sub Command1_Click() ______ Form2. ______ End Sub 试补充完整。 |
查看答案 |
填空题 | 用户可以用 ______ 语句定义自己的数据类型。 | 查看答案 |
填空题 | 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入第一个数字a的值") a=Val(A) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a + b + x Loop Print a End Sub 在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 ______ 。 |
查看答案 |
填空题 | 当对象得到焦点时,会触发 ______ 事件,当对象失去焦点时将触发 ______ 事件。 | 查看答案 |
填空题 | 把窗体的KeyPreView属性设置为True,并编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后,如果按下B键,则在窗体上输出的数值是 ______ 和______ 。 |
查看答案 |
填空题 | 在文件对话框中,假定有一个名为"fc.exe"的文件,它位于"d:\pp"目录下,则"FileName"属性的值为 ______ ;FileTitle属性的值为______ 。 | 查看答案 |
填空题 | 在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为“数值”及空白;然后画一个名称为Hscoll1的水平滚动条,其Min的值为0,Max的值为100。程序运行后,如果单击滚动条两端的箭头,则在标签Lable2中显示滚动条的值。请在 [1] 和 [2] 处填入适当的内容,将程序补充完整。 Private Sub HScroll1_______ () Labl2.Caption=HScroll1. ______ End Sub |
查看答案 |
填空题 | 在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按纽的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Label4。请在 [3] 、 [4] 和 [5] 处填入适当的内容,将程序补充完整。 Private Sub Command1_Click() For i=0 To 3 If ______ =True then opt=Option1(i).Caption End If Next Select Case ______ Case”+” Result=Val(Text1.Text)+Val(Text2.Text) Case”-” Result=Val(Text1.Text)-Val(Text2.Text) Case”*” Result=Val(Text.Text)*Val(Text2.Text) Case”/” Result=Val(Text1.Text)/Val(Text2.Text) End Select ______ =Result End Sub |
查看答案 |
填空题 | 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色) 。当向文框中输入任何字符时,命令按钮Command1变为可用。请在 [6] 处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1_ ______ ( ) Command1.Enabled=True End Sub |
查看答案 |
填空题 | 在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。 Form1. ______ Pmenu |
查看答案 |
填空题 | 以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容,将程序补充完整。 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 |
查看答案 |
填空题 | 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load() Text1.Text=”计算机” End Sub Private Sub Text1_Change() Picture1.Print“等级考试” End Sub 程序运行后,在文本框中显示的内容是______ ,而在图片框中显示的内容是______。 |
查看答案 |
填空题 | 在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: 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=100 b=200 Print M(a,b) End Sub 程序运行后,单击命令按钮,输出结果为______ 。 |
查看答案 |
填空题 | 为了改变计时器控件的时间间隔,应该修改该控件的______ 属性。 | 查看答案 |
填空题 | 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后,在列表框中添加若干列表项。当双击列表框中的某个项目时,在标签Label1中显示所选中的项目。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。 Private Sub Form_load() List1.AddItem”北京” List1.AddItem”上海” List1.AddItem”湖北” End Sub Private Sub ______ () Label1.Caption= ______ End Sub |
查看答案 |
填空题 | Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是______ 。 | 查看答案 |
填空题 | Visual Basic提供的对数据文件的三种访问方式为随机访问方式、______和二进制访问方式。 | 查看答案 |
填空题 | 执行下面的程序段后,变量S的值为______ 。 S = 5 For i = 2.6 To 4.9 Step 0.6 S = S + 1 Next i |
查看答案 |
填空题 | 为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1,所使用的语句为______ 。 | 查看答案 |
填空题 | 计时器控件能有规律的以一定时间间隔触发______ 事件,并执行该事件过程中的程序代码。 | 查看答案 |
填空题 | 以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click() For i = 1 To 20 x = Int(______* 200 + 100) If ______ = 0 Then Print x S = S + ______ End If Next i Print "Sum = "; S End Sub |
查看答案 |
填空题 | 设有如下程序 Private Sub Form_Click() Dim a As Integer, b As Integer a = 20: b = 50 p1 a, b p2 a, b p3 a, b Print "a="; a, "b="; b End Sub Sub p1(x As Integer, ByVal y As Integer) x = x + 10 y = y + 20 End Sub Sub p2(ByVal x As Integer, y As Integer) x = x + 10 y = y + 20 End Sub Sub p3(ByVal x As Integer, ByVal y As Integer) x = x + 10 y = y + 20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a = ______ 和 b = ______ 。 |
查看答案 |
填空题 | 在窗体上画一个名称为Command1的命令按钮,编写如下事件过程 Private Sub Command1_Click() Dim a As String a = ______ For i = 1 To 5 Print Space(6 - i); Mid$(a, 6 - i, 2 * i - 1) Next i End Sub 程序运行后,单击命令按钮,要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 |
查看答案 |
填空题 | 在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption 属性分别为"城市名称"和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示"已成功添加输入项"如图所示;如果存在,则在Label2中给出提示"输入项已在组合框中"。请在 【12】、【13】 和【14】处将程序补充完整。 Private Sub Combo1_ ______ (KeyAscii As Integer) If KeyAscii = 13 Then For i = 0 To Combo1.ListCount-1 If Combo1.Text = ______ Then Label2.Caption = "输入项已在组合框中" Exit Sub End If Next i Label2.Caption = "已成功添加输入项" Combo1. ______ Combo1.Text End If End Sub |
查看答案 |
填空题 | 设有如下程序 Private Sub search(a() As Variant, ByVal key As Variant, index%) Dim I% For I = LBound(a) To UBound(a) If key = a(I) Then index = I Exit Sub End If Next I index = -1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1, 3, 5, 7, 9, 11, 13, 15) Call search(b, 11, n) Print n End Sub 程序运行后,输出结果是______ 。 |
查看答案 |
填空题 | Visual Basic应用程序中标准模块文件的扩展名是______ 。 | 查看答案 |
填空题 | 在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。 Private Sub Form ______ (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then ______ mnuEdit End If End Sub |
查看答案 |
填空题 | 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的______属性设置为______ 。 | 查看答案 |
填空题 | 与数学表达式 对应的Visual Basic表达式是______ 。 | 查看答案 |
填空题 | 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是______ 。 | 查看答案 |
填空题 | 在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请填空。 Private Sub Option1_Click(Index As Integer) Select Case ______ Case 0 a = "宋体" Case 1 a = "黑体" Case 2 a = "楷体_GB2312" End Select text1. ______ =a End Sub |
查看答案 |
填空题 | 在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。请填空。 Private Sub Combo1_Click() Call ShowItem(Combo1, Label1) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2, Label2) End Sub Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) ______.Caption =______.Text End Sub |
查看答案 |
填空题 | 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f______ s = s + f Next Print s End Sub 该事件过程的功能是计算的值。请填空。 |
查看答案 |
填空题 | 在窗体上画一个名称为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$="BeijingShanghai" b$=Mid(a$,InStr(a$,"g")+1) 执行上面的程序段后,变量b$的值为______ 。 |
查看答案 |
填空题 | 以下程序段的输出结果是______ 。 num =0 While num<=2 num = num + 1 Wend Print num |
查看答案 |
填空题 | 窗体上有一个名称为List1的列表框,一个名称为Text1的文本框,一个名称为Label1、Caption属性为“Sum”的标签,一个名称为Command1、标题为“计算”的命令按钮。程序运行后,将把1~100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮,则对List1中的数进行累加求和,并在文本框中显示计算结果,如图所示。以下是实现上述功能的程序,请填空。 Private Sub Form_Load() For i=1 To 100 If i Mod 7 =0 Then ______ End If Next End Sub Private Sub Command1_Click() Sum = 0 For i = 0 To ______ Sum = Sum + ______ Next Text1.Text = Sum End Sub |
查看答案 |
填空题 | 本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空。 Private Sub Command1_Click() Randomize n = CInt(Text1.Text) n1 = 0 n2 = 0 For I = 1 To ______ r = Int(Rnd*2) If r = ______ Then n1 = n1 + 1 Else n2 = n2 + 1 End If Next Text2.Text = n1 Text3.Text = n2 End Sub |
查看答案 |
填空题 | 阅读程序: Option Base 1 Private Sub Form_Click() Dim a(3) As Integer Print "输入的数据是:"; For i = 1 To 3 a(i)=InputBox("输入数据") Print a(i); Next If a(1)<a(2) Then t = a(1) a(1) = a(2) a(2) = ______ End If If a(2)>a(3) Then m = a(2) ElseIf a(1)>a(3) Then m = ______ Else m = ______ End If Print "中间数是:";m End Sub 程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。 |
查看答案 |
填空题 | 在窗体上画一个名称为“Command1”,标题为“计算”的命令按钮,再画7个标签,其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果,其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数,分别显示在标签控件数组的各个标签中,如图所示。 单击“计算”按钮,则将标签数组各元素的值累加,然后计算结果显示在Label2。请填空。 Private Sub Command1_Click() Sum = 0 For i = 0 To 4 Sum = Sum + ______ Next ______ = Sum End Sub |
查看答案 |
填空题 | 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。 Option Base 1 Dim a(3,2) As Integer Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 2 ______ = i + j Next j Next i End Sub Private Sub Command2_Click() For j = 1 To 3 For i = 1 To 2 s = s + ______ Next i Next j Text1.Text = ______ End Sub |
查看答案 |
填空题 | 某二叉树中度为2的结点有18个,则该二叉树中有 ______ 个叶子结点。 | 查看答案 |