vb.net试题答案的简单介绍( 二 )

arr(1,2) = "你好"
Redim Preserve arr(1 to 1, 1 to 3)
msgbox arr(1,2)'这个时候依然可以得到arr(1,2)的值为“你好” 。
而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！
还有两道vb.net面试题，请大家帮忙，谢谢。我很喜欢这种题目
-------------------------------------------------------------------------
第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=strlinerscust(3)" "rscust(2)"/"
rsgrp.movenext
loop
end if
rscust.close
strline=left(strline ,len(strline)-1)
'去除最后一个"/"
console.writeline(strline)
loop
vb.net试题答案的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net试题答案的信息别忘了在本站进行查找喔。