创建数据库“db4.mdb”数据库,并按照如下要求在数据库中建立“联系人”表。(2) 在“联系人”奉中输入如
创建数据库“db4.mdb”数据库,并按照如下要求在数据库中建立“联系人”表。
(2) 在“联系人”奉中输入如下数据。查找“联系人”表中“工作单位”字段列的空值记录并将记录修改为“无”。
(3) 设置“联系人”表按照联系人姓名升序排列,单元格效果为“凸起”。联系人表如图所示。
创建数据库“db4.mdb”数据库,并按照如下要求在数据库中建立“联系人”表。
(2) 在“联系人”奉中输入如下数据。查找“联系人”表中“工作单位”字段列的空值记录并将记录修改为“无”。
(3) 设置“联系人”表按照联系人姓名升序排列,单元格效果为“凸起”。联系人表如图所示。
第2题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n=0
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
第3题
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.
Private Sub Commandl. Click( )
For I=1 To 10
R = Int (Rnd * 76 + 11)
Print R;
If【 】Then Print
Next I
End Sub
第5题
执行下面的程序段后,变量a的值为______。
a=0
For i=2.7 To 5.9 Step 0.5
a=a+1
Next i
第6题
在窗体上添加一个命令按钮,名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后,单击命令按钮,则消息框的输出结果为_______。
第7题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Privfite Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f 【 】
s=s+f
Next
Ptint S
End Sub
该事件过程的功能是计算s=1+2!+1/3!+...+1/n!的值。请填空。
第8题
在下面的程序中,要求循环体执行四次,请填空。
Private Sub Command1_Click()
x=1
Do While 【 】
x=x+2
Loop
End Sub
第9题
下列程序的运行结果为【 】。
A="1"
B="2"
A=Val (@A@+Val (@B@B=Val ("12")
If A<>B Then Prink A-B Else Print B-A
(11)阅读下列程序:
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j<> k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=l to 3
For k=1 to 3
Print a (j.k);
Next k
Next j
End Sub
运行程序时,输出的结果是【 】
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!