当用 【12】 方式打开文件时,如果对文件进行与操作,则写入的数据附加到原来文件的后面。
以下Prime 过程,用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数;如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整:
Function Prime(inputvar As Integer)As Integer
For i=2 To inputvar-1
If inputvar Mod i= 【13】 Then
GoTo comfinish
End If
Next i
Prime=inputvar
Print"素数"
GoTo 【14】
comfinish:
Prime=inputvar
Print"合数"
finish:
End Function
【13】0
【14】finish
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:
Function M(x As Integer,y As Integer)
M=IIf(x>y,x,y)
End FUNction
Private Sub Command1 Click( )
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后,单击命令按钮,输出结果为 【15】 。
以下关于多重窗体的叙述中,错误的是
A:用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体 B:在多重窗体程序中,各窗体的菜单是彼此独立的 C:在多重窗体程序中,可以根据需要指定启动窗体
D:对于多重窗体程序,需要单独保存每个窗体
在窗体上画一个名称为File1的文件列表框,并编写如下程序:
Private Sub File1_DblClick( )
x=Shell(File1_FileName,1)
End Sub
以下关于该程序的叙述中,错误的是
A:x没有实际作用,因此可以将该语句写为:Call Shell(File1.FileName,1) B:双击文件列表框中的文件,将触发该事件过程 C:要执行的文件的名字通过File1.FileName指定 D:File1中显示的是当前驱动器、当前目录下的文件
执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step-2
X=Mid(a,i,i)
Y=Left(a,i)
z=Rfight(a,i)
z=UCase(X&Y&z)
Next i
Print z
输出结果为
A:ABA B:BBABBA C:ABBABA D:AABAAB
实体—联系模型中,实体与实体之间的联系不可能是
A:一对一 B:多对多 C:一对多 D:一对零
当一个复选框被选中时,它的Value属性的值是
A:3 B:2 C:1
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
A:Timer1.Interval=0.5 B:Timer1.interval=5 C:Timer1.Interval=50 D:Timer1.Interval=500
以下关于Msg.Box的叙述中,错误的是
A:Msg.Box函数返回一个整数 B:通过Msg.Box函数可以设置信息框中图标和按钮的类型 C:Msg.Box语句没有返回值 D:Msg.Box函数的第二个参数是—个整数,该参数只能确定对话框中显示的按钮数量