登录
首页
笔记
分类
Toggle navigation
更多 >
-
hot
JAVA题库
new
BASIC题库
您所在的当前位置：
计算机等级考试题库
>
BASIC题库
>
[填空题] 【3】 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
问题：
发布时间：2022-07-01
[填空题]
【3】
是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。
参考答案：
题目声明
提问用户：tl***Ibo
答案有错？我要纠错
查看答案(免费不限制)
提交纠错答案
可能感兴趣的题目：
1
[填空题] 在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2 b = 5 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为 【5】 。
2
[填空题] 对象清除是指释放对象所占用的 【9】 。
3
[单项选择题] 窗体上有3个按钮Commandl、Command2和Command3，如以下代码： Private Sub Commandl Click() Command2．Enabled：Fal3e Command3．Vi3ible＝Fal3e End Sub 该程序的功能是 ( ) A．当单击按钮Command1时, Command2和Command3按钮不可用 B．当单击按钮Command1时, Command2和Command3按钮不可见 C．当单击按钮Command1时, Cammand2按钮不可用和Command3按钮不可见 D．当单击按钮Command1时, Command2按钮不可见和Command3按钮不可用
4
[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。 在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程： Prlvate Sub Form_Click() Open"D: est1.txt"For Input As # 1 Text1.FontSize＝14 Text1.FontName=“幼圆” Do While Not EOF(1) 【13】 whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text＝ 【14】 Close Open"D: est2.txt"For Output As # 1 Print # 1, 【15】 Close End Sub
5
[填空题] 数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，所以，基于逻辑结构的应用程序不必修改，称为______。
6
[单项选择题] 下列对队列的叙述正确的是______。 A．队列属于非线性表 B．队列按“先进后出”原则组织数据 C．队列在队尾删除数据 D．队列按“先进先出”原则组织数据
7
[填空题] 分支语句分为条件语句和 【7】 。
8
[单项选择题] 算法分析的目的是( )。 A．找出数据结构的合理性 B．找出算法中输入和输出之间的关系 C．分析算法的易懂性和可靠性 D．分析算法的效率以求改进
9
[填空题] 常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图(DFD) ，则应采用______方法。
10
[填空题] 执行下面程序,单击命令按钮cmd1后,窗体上显示的第一行内容是___(13)___,第二行内容是___(14)___ ;最后一行内容是___(15)___ Option Explicit Private Sub Cmdl_Click()Dim i As Integer,c As Integer,s As String,t As String*1Dim a() As String,s1 As String,jg As Integers="43X17Z23Y"’For i=1 To Len(s) t=Mid(s,i,1) s1=s1 & t If t>="X" And t<="Z" Then c=c+1 ReDim Preserve a(c) a(c)=s1 s1="" End IfNext iCall sub1(a,jg)Print jg EndSub Private Sub sub1(a() As String,gj As Integer)Dim i As IntegerFor i=1 To UBound(a) gj=gj+tran(a(i))Next igj=gj/UBound(a) End Sub Private Function tran(ss As String)As IntegerDim i As Integer,t As Integer,st As String*1Dim P As IntegerP=Len(ss)-1st=Right(ss,1)If st="X" Then t=8ElseIf st="Y" Then t=10Else t=16End IfFor i=1 To P tran=tran+Val(Mid(ss,i,1))*t^(P-i)Next iPrint tran End Function
