锐客网

  1. 首页 > 睿知 > it技术 > >

关于vb.net考试题的信息( 二 )

IT技术错误


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
中间vb.net考试题的 _ 有问题，应该去掉
还有objShape = CType(objShape, clsTriangle) 有错误，不能转换
注释掉objShape = CType(objShape, clsTriangle)
删除_后，得到结果
true
false
-330
--------------------------------------------------------------------------
第8题，就是以acc_grp_cust_tbl表为基?。?查找cust_tbl并输出
一般vb.net考试题的话使用涉及两个表的话使用SHAPE语句（以SQL为基础的语句）
虽然两者使用时差不多 ， 但是理论比较难懂，我这里也不讲vb.net考试题了，我使用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程序题1、
For j = 3 To 19 Step 4
m += 1
Next
为循环5次
For i = 1 To 15 Step 4
Next
为循环4次
则总共循环4*5=20,m没循环一次+1 ， 则m=20
2、从下面这段可以看出“*”与“#”是同步的(因为走else时，会继续循环)，有“*”肯定“#”，而输出“*”只有当i=2,4时，则有2次，为*#*#
For i = 1 To 5
If i Mod 2 = 0 Then
Console.Write("*")
Else
ContinueFor
EndIf
Console.Write("#")
Next
在加上最後次输出：Console.WriteLine("$")
结果则为：*#*#$
vb.net考试题的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于、vb.net考试题的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：怎么看redis的链接配置，怎么看redis的链接配置参数

下一篇：如何用钉钉建立房间做直播，钉钉如何创建直播