填空题在窗体上画两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下事件过程: Private Sub Command1_Click() Text 1="VB programming" Text 2=Text 1 Text 1="ABCD" End Sub 程序运行后,单击命令按钮,文本框Text 2中显示的内容为 【12】 。
填空题在窗体中有一个名为Command1的命令按钮,Click事件的代码如下(该事件所完成的功能是:接受从键盘输入的10个大于0的整数,找出其中的最大值和对应的输入位置)。请依据上述功能要求将程序补充完整。 Private Sub Command1_Click() max=0 max_n=0 For i=1 To 10 num=Val(InputBox("请输入第"& i & "个大于0的整数:")) If(hum>max)Then max=______ max_n=______ End If Next i MsgBox("最大值为第"& max_n&"个输入的"& max) End Sub
填空题数据库系统的三级模式分别为 模式、内部级模式与外部级模式。
填空题一个表如果设置了主关键字,表中的记录______就将依赖于主关键字的取值。
填空题建立了一个窗体,窗体中有一个命令按钮,单击此按钮,将打开一个查询,查询名为“qT”,如果采用VBA代码完成,应使用的语句是______。
填空题数据管理技术经历了人工处理阶段、 【6】 和 【7】 、分布式数据库系统、面向对象数据库系统5个发展阶段。
填空题有以下程序:
#include <iostream >
using namespace std;
int main()
{
int i=010,j=10;
cout<<(++i)<<",'<<j--<<end1;
return 0;
{
则该程序运行后的输出结果是{{U}} 【6】 {{/U}}。
填空题阅读下列程序。
Option Base 1
Private Sub Form _Click()
Dim x(3,3)
For j=1 to 3
For k=l to 3
If j=k then x(j,k)=1
If j<>k then x(j,k)=k
Next k
Next i
Call fun(x())
End Sub
Private Sub fun(x())
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为{{U}} 【14】 {{/U}}。
填空题在关系数据库中.基本的关系运算有3种,它们是选择、投影和______。
填空题Access中不允许主关键字字段中存入 ______ 和空值。
填空题需求分析阶段的工作,可以分成以下四个方面:{{U}} 【2】 {{/U}}、分析与综合、编写需求规格说明书和评审。
填空题在Access的用户界面中,工具栏中的功能可以通过执行______中的相应命令来实现。
填空题纵栏式窗体每次显示 【12】 条记录。
填空题替换表中的数据项,是要先完成表中的______,再进行替换的操作过程。
填空题数据管理技术经历了人工处理阶段、 (6) 和 (7) 、分布式数据库系统、面向对象数据厍系统5个发展阶段。
填空题函数Now( )返回值的含义是______。
填空题利用报表不仅可以创建______,而且可以对记录进行分组,计算各组的汇总数据。
填空题按照软件测试的一般步骤,集成测试应在{{U}} 【2】 {{/U}}测试之后进行。
填空题下列程序的输出结果是______。 Private Sub Command1_Click() Dim arr(1To 10) For i=1 To 10 arr(i)=i Next i For Each i In arr() arr(i)=arr(i)*2+1 Next i MsgBox arr(7) End Sub
填空题数据库的“职工基本情况表”有“姓名”和“职称”等字段,要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句,使程序可以完成指定的功能。 Private Sub Command5_Click() Dim db As Dao.Database Dim rs As Dao.Recordset Dim zc As Dao.Field Dim Count1 As Integer,Count2 As Integer,Count3 As Integer Set db=CurrentDb() Set rs=db.ODenRecordset("职工基本情况表") Set zc=rs.Fields("职称") Count1=0:Count2=0:Count3=0 Do While Not (14) Select Case zc Case Is="教授" Count1=Count1+1 Case Is="副教授" Count2=Count2+1 Case Else Count3=Count3+1 End Select (15) Loop rs.Close Set rs=Nothing Set db=Nothing MsgBox "教授:"&Count1&"副教授:"&Count2&",其他:"&Count3 End Sub
