题库 题库
🏠 天天查询 > 题库 > VB

VB

填空题 以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。
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
Print
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个，则该二叉树中有 ______ 个叶子结点。 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639