首页
题库
网课
在线模考
桌面端
登录
搜标题
搜题干
搜选项
0
/ 200字
搜索
填空题
能够将文本框控件隐藏起来的属性是______。
答案:
Visible[解析] Visible为隐藏属性,Hide为隐藏方法。
点击查看答案
在线练习
手机看题
你可能感兴趣的试题
填空题
在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Open"d:\temp\dat.txt"For Output As#1
Text1.Text:“”
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If
__
____
__
=13 Then
If UCase(Text1.Text1=
__
____
__
Then
Close#1
End
Else
Write#1,
__
____
__
Text1.Text=“”
End If
End If
End Sub
以上程序的功能是,在D盘temp目录建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCⅡ码是13)都把当前文本框中的内容写入文稿件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请将程序补充完整。
答案:
KeyAscii ”END” Text1.Text[解析] KeyPress事件中可以引用KeyAsai值来判断使用者按...
点击查看答案
手机看题
填空题
能够将文本框控件隐藏起来的属性是______。
答案:
Visible[解析] Visible为隐藏属性,Hide为隐藏方法。
点击查看答案
手机看题
填空题
在程序设计语言中,重复结构对应两类循环语句,对先执行循环体后判断的称为______循环结构。
答案:
直到型
点击查看答案
手机看题
填空题
由Array函数建立的数组的名字必须是
__
____
__
类型。
答案:
变体或Variant[解析] Array返回一个包含数组的Variant。
语法
Army(arglis...
点击查看答案
手机看题
填空题
如果在立即窗口中执行下列操作:
a=8
b=9
print(a>b);
则输出结果是______。
答案:
False[解析] a>b是一个逻辑表达式,其运行结果为False;Print方法不仅有打印的功能,还兼有计算的功能,将...
点击查看答案
手机看题
填空题
有序线性表进行二分查找的前提是该线性表必须是
__
____
__
存储的。
答案:
顺序或顺序方式[解析] 二分法查找只适用于顺序存储的有序表。在此所说的有序表是指线性表中的元素按值非递减排列(即从小到大...
点击查看答案
手机看题
填空题
用户可以用
__
____
__
语句定义自己的数据类型。
答案:
Type[解析] 用户可以用Type语句来定义数据类型,格式是:
Type数据类型名
数据类型元素名...
点击查看答案
手机看题
填空题
下列程序弹出对话框中按钮的个数为______。
MsgBox"确认!",vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,"提示:"
答案:
4
点击查看答案
手机看题
填空题
在面向对象方法中.一个对象请求另一个对象为其服务是通过发送______来完成的。
答案:
消息[解析] 对象之间的相互作用和通信是通过消息来完成的。当对象A耍执行对象B的方法时,对象A发送一个消息到对象B。接受...
点击查看答案
手机看题
填空题
执行下面程序,第一行输出结果是
__
____
__
,第二行输出结果是
__
____
__
。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x<10 Then
Call Sub1(x)
End If
x=x,2+1
Print x
End Sub
答案:
[12]23 [13]47[解析] 递归是一种十分有用的程序设计技术。递归过程是在过程定义中调用(或间接调用)本过程的过...
点击查看答案
手机看题
填空题
一个变量未被显示定义,末尾也没有类型说明符,则该变量的隐含类型是上______类型。
答案:
变体
点击查看答案
手机看题
填空题
运行下列程序:
Dim t As Integer
Private Sub Form_Click()
t = 2
x=Val(InputBox("输入一个整数5"))
Print funl(x); t
End Sub
Private Function fun1(y)
If y>0 Then
fun1 = 1: t=10
Else If y=0 Then
fun1 = 0: t=20
Else
fun1 = -1: t=30
End If
End Function
从键盘为变量x输入数据5,输出的结果是
__
____
__
。
答案:
1 10[解析] t为模块级变量,在子函数中计算的结果10改变了主函数中的t值,fun1函数名返回的值为1。
点击查看答案
手机看题
填空题
函数Int(Rnd*10)+10的值的范围是
__
____
__
。
答案:
[10,19][解析] Rnd产生随机数的范围为(0,1),因此,Rnd*10的范围为(0,10);Int()函数是取整...
点击查看答案
手机看题
填空题
窗体上有名称为Command1的命令按钮事件过程及2个函数过程如下:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z
x=3
y=5
z=fy(y)
Print fx(fx(x)),y
End Sub
Function fx(ByVal a As Integer)
a=a+a
fx=a
End Function
fy=a
Function fy(ByRef a As Integer)
a=a+a
fy=a
End Function
运行程序,并单击命令按钮,则窗体上显示的2个值依次是______和______。
答案:
12 10[解析] 本题考查了参数传递的传值与传地址的区别。
点击查看答案
手机看题
填空题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=
_
____
_
For j=
_
____
_
If a(i)
_
____
_
a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
答案:
【8】1 To 9
【9】i+1 To 10
【10】>
[解析] 最外层的循环负责从第1个元素...
点击查看答案
手机看题
微信扫码免费搜题