填空题要使工具栏控件的某按钮呈按钮菜单的样式,可以在其属性页中设置其______选项为5-tbrDropDown。
填空题设窗体上有—个名称为Combo1的组合框,并有以下程序:
Privale Sub Combol_ KeyPress(KeyAscii As Integer)
If{{U}} 【9】 {{/U}}=13 Then 回车符的ASCII码是13
For k=0 To Combo1. ListCount-1
If Combo1.Text=Combol. List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1. Text<>" "Then
Combo1. AddItem{{U}} 【10】 {{/U}}
End If
End If
End Sub
程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
填空题在奥运会游泳比赛中,一个游泳运动员可以参加多项比赛,一个游泳比赛项目可以有多个运动员参加,游泳运动员与游泳比赛项目两个实体之间的联系是【6】联系。
填空题数据库三级模式体系结构的划分,有利于保持数据库的{{U}} 【4】 {{/U}}。
填空题窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下:
Private Sub Command1_Click()
Dim x As Integer,y A8 Integer,z
X=3
y=5
z=fy(y)
Print fx(fx(x)),y
End Sub
Function fx(ByVal a As Integer)
a=a+a
fx=a
End Function
Function fy(ByRef a As Integer)
a=a+a
fy=a
End Function
运行程序并单击命令按钮,则窗体上显示的两个值依次是{{U}} [12] {{/U}}和{{U}} [13] {{/U}}。
填空题语句print"25+32=";25+32的输出结果是
________
。
填空题下列语句的输出结果是 【7】 。 Print Format$(1258.6,"000,000.00")
填空题Jackson结构化程序设计方法是英国的M.Jackson提出的,它是—种面向{{U}} 【3】 {{/U}}的设计方法。
填空题应用程序结构指的是组织指令的{{U}} 【6】 {{/U}},即指令存放的{{U}} 【7】 {{/U}}和指令的{{U}} 【8】 {{/U}}顺序。
填空题下列过程的功能是:用来计算并输出S = 1+1/2+1/3+…+1/100的值。请完善下列程序。 Function SumD(n As Integer)As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop Until ______ SumD = s End Function Private Sub Form_Click( ) sum1 = SumD(100) Print "sum1 = "; sum1 End Sub
填空题数据的基本单位是 【5】 。
填空题下面的程序是用冒泡法将数组a中的10个整数按升序排列,并将程序补充完整。 Private Sub Command1_Click() Dim a Dim Tmp As Integer a=Array(678 , 45 , 324 , 528 , 439 , 387 , 87 , 875 , 273 , 823) For i=______ For j=______ If a(i)______a(j)Then Tmp=a(i) a(i)=a(j) a(j)=Tmp End If Next j Next i For i=0 To 9 Print a(i) Next i End Sub
填空题在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序:
Private Sub Command1_Click()
Dim ave As Single, max As Integer, i As Integer, n As Integer
Dim min As Integer, Sum As Integer, s As String
Dim t As Integer
s=InputBox("输入一个正整数:")
n=Val(s)
If n>0 Then
max=n: min=n: Sum=0
For j=1 To n
t={{U}} 【9】 {{/U}}
Print t;
Sum=Sum+t
If t<min Then
min=t
Elself max<t Then
max=t
End If
Next j
{{U}} 【10】 {{/U}}
ave=Sum/n
MsgBox"平均值="+Str(ave),,"去掉最大数和最小数后"
End If
End Sub
填空题在窗体上画一个通用对话框,其名称为CommandDialog1,再画一个命令按钮,其名称为Command1。程序运行时,单击命令按钮,在对话框内只允许显示文本文件。将以下程序补充完整。 Private Sub Command1_Click() CommandDialog1.Filter= 【15】 CommandDialog1.ShowOpen End Sub
填空题图像框和图片框在使用时有所不同,这两种控件中,能作为容器容纳其他控件的是______。
填空题在程序中使用日期型数据时,必须用符号______将日期型数据括起来。
填空题以下程序段的作用是计算数据的和,数据的个数是可变的。请填空。 Private Sub Command1_Click() Dim a As Integer a=0 Sum a, 1, 5, 2 Print "sum of 3 = "; a a = 0 Call Sum(a, 1, 3, 5, 7, 9) Print "sum of 5 = "; a End Sub Private Sub Sum(x As integer, 【3】 Dim y As Variant For 【4】 x = x + y Next y End Sub
填空题VB中的控件分为内部控件、ActiveX控件和{{U}} 【7】 {{/U}}三类。
填空题在关系模型中,把数据看成是二维表,每一个二维表称为一个______。
填空题在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Pfivate Sub Form_Click() Open"C:StuData.txt"ForOut PUt As#1 Fori=l To5 StuNo=InputBox("请输入学号") StuName=InputBox("请输入姓名") StuEng=Val(1nputBox(“请输入英语成绩”)) ______ Nexti Close#1 End Sub