十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Me.Close是关闭窗体,如果程序只有一个主窗体,就直接关闭程序了
创新互联建站,为您提供网站建设、成都网站制作、网站营销推广、网站开发设计,对服务地磅秤等多个行业拥有丰富的网站建设及推广经验。创新互联建站网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!
Me.Dispose用来释放组件,通常不需要手工调用它
End是强制关闭程序,而不理程序现在的状态,只有万不得已的情况下,才使用这个命令。
正常都会调用Me.Close,然后Me.Close就会自动调用Me.Dispose。
所以Me.Close是资源释放最彻底的方式。
而End是资源释放最不彻底的方式。
1.打开属性窗口的热键是( d )
A、F1 B、F2 C、F3 D、F4
2.在VB6.0的集成开发环境有几种工作状态( c )
A、1种 B、2种 C、3种 D、4种
3.下面四个选项,不是窗体属性的是(d )
A、MinButton B、MaxButton C、Caption D、Load
4.用来设置窗体背景图片的属性是(b )
A、Moveable B、Picture C、ForeColor D、WindowsState
5.修改控件属性,一般可以使用属性窗口,也可以通过(d )为属性赋值。
A、命令 B、对象 C、方法 D、代码
6.不能打开属性窗口的操作是(d )
A、单击工具栏中的“属性窗口”按钮
B、选取“视图”菜单中的“属性窗口”子菜单项
C、在对象上单击右键,从弹出的快捷菜单中选择“属性窗口”选取项
D、选取“工程”菜单中的“属性窗口”子菜单项
7.VB6.0集成开发环境有3种工作状态,工作状态显示在( a )
A、状态栏的最左方 B、状态栏的最右方
C、状态栏的方括号内 D、标题栏的方括号内
8.M,N是整数,且nm,在下面四个语句中,能将x赋值为一个m-n之间(含m,n)的任意整数,即满足M=x=n的是( a )
A、x=INT(RND*(n-m+1))+m B、x=INT(RND*n)+m
C、x=INT(RND*m)+n D、x=INT(RND*(n-m))+m
9.VB6.0表达式Log(1)+Abs(-1)+Int(Rnd(1))的类型是(a )
A、算数表达式 B、关系表达式 C、错误表达式 D、逻辑表达式
10.下面四个语句中,能打印显示20×30字样的是( a )
A、Print “20*30” B、Print 20*30
C、Print Chr$(20)+”*”+Chr$(30) D、Print Val(“20”)*Val(“30”)
11.下列事件过程
Private Sub Command1_Click()
Print Format(123.456,”###.##%”)
End Sub
12.运行后输出结果是( d )
A、123.46% B、123.45% C、123.456% D、12345.6%
13.下列事件过程
Private Sub Command1_Click()
a$=”Bird”
c$=”fly”
print a$ “can” c$ “1”
End Sub
14.运行后输出结果是(a )
A、Bird can fly! B、Birdcanfly C、Birdcanfly! D、Bird Can Fly!
15.可以用InputBox函数产生“输入对话框”,若执行下列语句:st$=InputBox(“请输入字符串”,“字符串对话框”,“字符串”),当用户输入完毕,按“确定”按钮后,st$变量的内容是( a )
A、字符串 B、请输入字符串 C、字符串对话框 D、用户输入内容
16.下列程序
Private Sub Command1_Click()
X1=InputBox(“请输入”)
print X1+123
End Sub
17.运行时,若输入123,将输出(b )
A、123123 B、246 C、123 D、显示出错信息
18.以下VB6.0控件中,有Caption属性的是(d )
A、组合框 B、列表框 C、计时器 D、单选按钮
19.能作为容器使用的对象是(a )
A、图片框 B、图像框 C、标签框 D、文本框问题补充:
20.下面选项中,不能使控件得到焦点的操作是(d )
A、在程序运行期间,用鼠标单击对象
B、在程序运行期间,用快捷选择对象
C、在程序运行期间,按Tab建
D、在程序运行期间,按回车键
21.下面的程序运行时,若从键盘输入3和4,则输出为(b )
Private Sub Form_Click()
a=Val(InputBox(“请输入a”))
b=Val(InputBox(“请输入b”))
c=a
if bc then c=b
c=c*c
print c
End Sub
A、14 B、16 C、18 D、20
22.在程序运行中,要想使可操作的按钮变成看不见,则应设置为False的属性是( a )
A、Visible B、Enabled C、Default D、Cancled
23.若要设置标签的背景颜色,使用的属性是( b )
A、ForeColor B、BackColor C、FontBold D、Color
24.下面选项中,不能将图像装入图片框和图像框的方法是( a )
A、在界面设计时,手工在图片框和图像框中绘制图形
B、在界面设计时,通过Picture属性装入
C、在界面设计时,利用剪贴板吧图像粘贴上
D、在程序运行期间,用LoadPicture函数把图形文件装入
我很喜欢这种题目
-------------------------------------------------------------------------
第7题,问题出在两方面
Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional
ByVal AssignToArea As Boolean = False) As Double
Dim Area As Double = (SideBase * Height) / 2
中间的 _ 有问题,应该去掉
还有objShape = CType(objShape, clsTriangle) 有错误,不能转换
注释掉objShape = CType(objShape, clsTriangle)
删除_后,得到结果
true
false
-330
--------------------------------------------------------------------------
第8题,就是以acc_grp_cust_tbl表为基础,查找cust_tbl并输出
一般的话使用涉及两个表的话使用SHAPE语句(以SQL为基础的语句)
虽然两者使用时差不多,但是理论比较难懂,我这里也不讲了,我使用ADO+SQL方法
先说明一下程序中的一个细节,也是问题比较容易忽略的
1400 0 1 2
1500 3 4
1600 5
说明一个问题Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是数值,而是类似字符的东西(因为可能是
备注)
定义rsgrp对应acc_grp_cust_tbl ,rscust对应cust_tbl
预先设置好rsgrp和rscust的连接(使用VB的方法,可以移植到VB.NET上)
do until rscust.eof
strline=rscust(0) " "
strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"
RSGRP.OPEN STRSQL
if rsgrp.recordcount0 then
rsgrp.movefirst
do until rsgrp.eof
strLine=strline rscust(3) " " rscust(2) "/"
rsgrp.movenext
loop
end if
rscust.close
strline=left(strline ,len(strline)-1)
'去除最后一个"/"
console.writeline(strline)
loop
VB.net:表达式中若运算符不只一种时,首先处理算术运算符,然后是比较运算符,最后是逻辑运算符。同一种运算符中,单目运算符的优先级高于双目运算符。优先级相同的运算符,按从左到右的顺序进行处理(求指运算除外)。
+,-,*,/,^,Mod 属于算术运算符
=,,,,=,= 属于比较运算符
And,Or,Not 这些属于逻辑运算符
所以,来看你的表达式:
首先进行算术运算: 100 + 10 * 3 = 100 + 30 = 130
12^2 = 144
然后进行比较运算: 130 144 ,比较运算结果为:True
最后进行逻辑运算: True And True ,结果为:True
所以表达式的最终结果为:True, 答案选A!