填空题窗体上命令按钮Command1的事件过程如下: Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total End Sub Private Function s(m As Integer)As Integer Static x As Integer For i=1 To m x=x+1 Next i S=x End Function 运行程序,第3次单击命令按钮Command1时,输出结果为______。
填空题在SQL的SELECT语句进行分组计算查询时,可以使用【14】子句来去掉不满足条件的分组。
填空题在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。
填空题下列程序的功能是,单击命令按钮时随机生成15个100以内的正整数,放到3×5的数组中,找出该数组中最大的元素,并指出该元素的行标和列标。请填空。 Option Base 1 Private Sub Command1_Click() Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer Dim maximum As Integer, max n As Integer, max_m As Integer Randomize For m=1 To 3 For n = 1 To 5 a(m, n)= 【3】 Next n Next m maximum=a(1, 1) max n=1 : max m=1 For i = 1 To 3 For j=1 To 5 If 【4】 Then maximum=a(i, j) max m=i max_n=j End If Next j Next i Print maximum, max m, max n End Sub
填空题组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和下拉式组合框,分别通过把Style属性设置为______来实现。
填空题以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以 5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub
填空题数据结构分为逻辑结构和存储结构,线性链表属于______。
填空题在数据库理论中,数据库总体逻辑结构的改变,如修改数据模式、增加新的数据类型、改变数据间联系等,不需要修改相应的应用程序,称为{{U}} 【5】 {{/U}}。
填空题数据字典是各类数据描述集合,它通常包括5个部分,即数据项、数据结构、数据流、 【5】 。和处理过程。
填空题在窗体上画一个文本框和—个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text="VB程序设计" End SubPrivate Sub Textl Change() Picture1.Print"VB programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是 【7】 ,而在图片框中显示的内容是 【8】 。
填空题若一棵二叉中只有叶结点和左、右子树皆非空的结点,设叶结点的个数为k,则左、右子树皆非空的结点个数是 【1】 。
填空题以下语句的输出结果是
________
。
S$="China"
S$="Beijing"
print S$
填空题数据结构分为逻辑结构和存储结构,循环队列属于 【1】 结构。
填空题常用的软件结构设计工具是结构图(SC),也称程序结构图。其中,用矩形表示______,用带空心圆的箭头表示传递的是数据。
填空题下面的程序是找出两个正整数a和b,使得a<b、a+ b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。
Option Explicit
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer
do
c=a Mod b: a=b=c
Loop {{U}} {{U}} {{/U}} {{/U}}
Gcd=a
End Function
Private Sub form_ Click()
n=0
for a= 1 To 49
b={{U}} {{U}} {{/U}} {{/U}}
c= Gcd (a, b)
if c Mod 3= 0 then
{{U}} {{U}} {{/U}} {{/U}}
Print a, b, c
End if
Next a
Print n
End Sub
填空题有如下过程,将两次调用过程proc的结果分别填于空{{U}} 【9】 {{/U}}和{{U}} 【10】 {{/U}}处。
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=2
b=5
Call proc(a, b) {{U}} 【9】 {{/U}}
Call proc(a) {{U}} 【10】 {{/U}}
End Sub
Private Sub proc(x As Integer,Optional y)
Dim z As Integer
If IsMissing(y) Then
MsgBox ("没有提供可选参数")
Else
z=x*y
MsgBox ("乘积=" + Str(z))
End If
End Sub
填空题要将窗体定义成一个对话框,且具有以下属性:包含控制菜单框和标题栏,不包含最大化和最小化按钮,运行时不能改变尺寸。可以将窗体的BorderStyle属性设置为______。
填空题在窗体上画一个名称为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=Ubound(b) 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)的值互换,……。请填空。
填空题下述语句段在运行时的显示结果是 【6】 。 Cls x=10.34 + 8 Print Len(x)
填空题假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在横线处将程序补充完整。 Private Sub Command1 Click(); Form1. ______ Form2. ______ End Sub
