填空题数据库中的数据按一定的数据模型组织、描述和储存,具有较小的数据______度,较高的数据独立性和易扩展性,并可以供各种用户共享。
填空题一幅图像若其像素深度是8位,则它能表示的不同颜色的数目为______。
填空题以太网中需要传输的数据必须预先组织成若干帧,每一数据帧的格式如下所示,其中“?”表示的是______。
源计算机
MAC地址
目的计算机
MAC地址
?
校验信息
填空题表达式LEN(STR(12345678901.9))的返回值为___(5)___;返回当前工作区中打开表的字段个数的函数为___(6)___。
填空题声明局部变量时若缺省存储类别,该变量的存储类别是【5】 。
填空题MOS型半导体存储器芯片可以分为DRAM和SRAM两种,PC机中内存条一般由其中的______芯片组成。
填空题本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程Cmdfind主要功能是生成n个随机整数存入数组,再调用Freq过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。请完善本程序。
Option Explicit
Option Base 1
Private Sub Cmdfind_Click()
Dim a() As Integer,n As Integer,i As Integer
Dim Shu() As Integer,Cs() As Integer,Max As Integer
n=InputBox("输入数据个数:","查找众数",20)
ReDima(n)
Randomize
For i=1 To n
a(i)=Int(Rnd*5)+5
Text1=Text1 &Str(a(i))
If i Mod 10=0 Then Text1=Text1 &vbCrLf
Next i
Call Freq(a,Shu,Cs)
Max=Cs(1)
For i=2 To UBound(Cs)
If Cs(i)>Max Then
___(26)___
End If
Next i
For i=1 To UBound(Cs)
If ___(27)___ Then Text2=Text2 &Shu(i) & " "
Next i
End Sub
Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer)
'shu数组用于存放A数组中不相同数据的值
'Cs数组用于存放对应不相同数据出现的次数
Dim i As Integer,j As Integer,js As Integer,n As Integer
For i=1 To UBound(a)
js=1
For j=1 To n '搜索数组a中不相同的数据
If Shu(j)=a(i) Then Exit For
Next j
If ___(28)___ Then
n=n+1
ReDim ___(29)___
Shu(n)=a(i)
For j=i+1 To UBound(a)
If a(j)=a(i) Then ___(30)___
Next j
Cs(n)=js
List1.AddItem a(i) & "---" &js
End If
Next i
End Sub
填空题完善下列程序,以显示7~1000以内能被7整除且含有数字5的所有整数(如35、56、105等)。
FOR n=7 TO 1000______
ch=ALlLT(STR(n))
IF"5" $ ch
? n
ENDIF
ENDFOB
填空题有一张表单frmA,该表单中包含一个页框PgfB,页框中包含的页面数未知。在刷新表单时,为了刷新页框中的所有页面,可在页框PgfB的Refresh方法中编写一段FOR循环结构的代码实现,请完善如下代码:
FOR i=1 TO This.______
This. Pages(i). Refresh
ENDFOR
填空题执行下列程序后,输出到屏幕的结果为( ) 。
【程序清单】
CLEAR
STORE 5 TO ml,m2
STORE 1 TO m3,m4
DO PA WITH ml,m2,m3,m4
?m4
PROCEDURE PA
PARAMETER a,b,c,d
d=b^2-4*a*c
DO CASE
CASE d0
d=300
ENDCASE
RETURN
填空题执行下列程序,单击Command1按钮,在窗体上显示的变量a的值为______,变量c的值为______,窗体上的输出内容为______。
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=1:b=2:c=3
Print fun(a, b, c)+fun(a, b, c)
End Sub
Private Function fun(x As Integer, y As Integer, z As Integer)As Integer
z=x
x=x+y
y=y+z
z=x+y
fun=x+y+z
End Function
填空题设有一个“计时器”表单如下图所示。表单上有1个计时器控件(Timer1)、4个标签控件、4个文本框控件(Text1、Text2、Text3和Text4)和一个命令按钮控件(Cmd1)。表单右上角无“最大化”和“最小化”按钮,则表单的MaxButton属性和MinButton属性的值应设置为________;表单运行时Text1文本框始终显示当前的系统时间(由计时器控件负责刷新时间,计时器的相关属性和事件代码已设置);表单运行后,第一次单击命令按钮,其标题由“开始”变为“停止”,且Text2文本框显示当前时间,第二次单击命令按钮,其标题由“停止”变为“退出”,且Text3文本框显示当前时间,Text4文本框显示用时(Text3文本框的值减去Text2文本框的值),第三次单击命令按钮则关闭表单。命令按钮的Click事件代码如下:DOCASECASELEFT(THISFORM.Cmd1.Caption,4)="开始"THISFORM.Cmd1.Caption="停止"THISFORM.Text2.Value=Time()CASELEFT(THISFORM.Cmd1.Caption,4)="停止"THISFORM.Cmd1.Caption="退出"THISFORM.Text3.Value=Time()THISFORM.Text4.Value=THISFORM.Text3.Value-THISFORM.Text2.ValueCASELEFT(THISFORM.Cmd1.Caption,4)="退出"________ENDCASE
填空题以下程序运行时,输出到屏幕的结果中第一行是___(10)___,第二行是___(11)___ 。
#include
void fun(int *t)
{
static int i=0;
do
t[i]+=t[i+1];
while(++i<3);
}
int main()
{
int i,a[10]= {1,2,3,4,5};
for(i=1;i<3;i++)
fun(a);
for(i=0;i<4;i++)
printf("%d",a[i]);
printf("\n%d\n",a[i]);
return 0;
}
填空题将当前工作区中打开的表的数据复制到文件名为ABC的EXCEL文件中,可以使用命令:COPY TO abc ___(11)___。
填空题某数据库表gp.dbf包含的字段分别是dm(股票代码,字符型)、mc(股票名称,字符型)、jg(当前价格,数值型)和zdf(与上个交易日相比涨跌幅的百分数,数值型),其部分数据如下表所示(zdf值为正数表示上涨,负数表示下跌):
dm
mc
jg
zdf
600088
中视传媒
25.56
3.02
600143
金发科技
32.16
-2.25
600020
江苏阳光
9.00
-1.96
600266
北京城建
31.39
2.62
600519
贵州茅台
105.51
-0.53
600839
四川长虹
7.59
-1.30
600887
伊利股份
31.33
1.46
……
下列SQL命令查询并显示上涨的股票信息,且仅显示上涨幅度最大的前10种股票信息。
SELECT ______ dm AS股票代码, mc AS股票名称, jg AS当前价格, zdf AS涨跌幅;
FROM gp;
______;
ORDER BY zdf DESC
填空题已有声明"int a,b;"且a和b的值均大于0,表达式"a%b+a/b*b==a"的值为___(1)___。
填空题设有一个用于系统登录的表单,表单设计时(即在表单设计器中显示)如下图1所示,运行时如下图2所示。从图1、图2可以看出:(1)表单的________属性值设置为.F.,表单无任何控制按钮(即无“最小化”/“最大化”按钮、“关闭”按钮、控制图标)。(2)文本框Text2的________属性值设置为星号(*),在表单运行时该文本框中输入的数据均以星号显示。
填空题执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是___(10)___,第二行显示内容是___(11)___,最后一行显示内容是___(12)___。
Option Explicit
Private Sub CmdRun_Click()
Dim N As Integer,M As Integer
M=135
N=8
Pic1.Print Fun(M,N)
EndSub
Private Function Fun(ByVal N As Integer,ByVal R As Integer)As String
Dim L As Integer
If N
Fun=N
Else
L=N\R
Fun=Fun(L,R)
Fun=Fun & N Mod R
End If
Pic1.Print N
End Function
填空题以下程序运行时输出到屏幕的结果为___【6】__ 。
#include
enum{A,B,C,D}x;
void main()
{char s[]="your";
for(x=B;x<=D;x++)
putchar(s[x]);
}
填空题硬盘、移动硬盘和光盘的接口标准(相同、不同)____(36)____。
