锐客网

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

vb.net试卷及答案的简单介绍

IT技术错误

Windows程序设计（VB.NET）》在线作业二1.C
2.A
3.A
4.A
5.A
6.C
7.D
8.A
9.A
10.D
11.D
12.D
13.B
14.D
15.A
16.B
17.C
18.A
【vb.net试卷及答案的简单介绍】1.A
2.B
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试卷及答案我QQ531412815
第4题,潜在的错误,这里的错误不是常规错误,属于那种只有在运行是才知道的错误:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永远不会查找下面的错误
Catch ex As ArgumentNullException
MsgBox("Input Test box cannot be null.")
Catch ex As OverflowException
MsgBox("Input Test box 2 cannot be zero!")
Catch ex As FormatException
MsgBox("Input Test box should be numeric format!")
结构化错误处理永远达不到下面这里,因为Catch ex As Exception 已经处理了所有错误.
第5题：
00123
1000 60.50
2000 60.00
3500 59.50
---- -----
6500 60.00
00124
3000 60.50
---- -----
3000 60.50
00125
2000 59.50
1000 58.00
---- -----
3000 58.75
就是按照Ref_ID 分类vb.net试卷及答案 ， 有一种方法就是按照Ref_ID 分组，也就是使用SQL语言，不过这里需要该很多，
我就不用了 ， 那么就稍微复杂一点，使用FIND方法,不过有一点必须注意REF_ID必须排序 ， 因为数据库中
已经排好序了 ， 我就不用排了 。
Dim rst as ADODB.Recordset
dim refID as string
Rst = GetRecordset
Do While Not rst.EOF
refid=rst(0)
Console.writeline(rst.Fields("Ref_ID")
do
Console.writeline rst.Fields("Qty")vbcrlfrst.Fields("Price"))
rst.MoveNext()
loop while rst(0)=refid
Loop
第6题：就是从一个集合中取元素输出的问题
比较简单的办法就是使用递归
以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会,所以就将就一下)
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
-----------------------------------------------------------------------------------
Public Sub Combination(lstStr As String)
Dim i As Byte
Dim j As Byte
Dim StrLen As Byte
StrLen = Len(lstStr)
ReDim bUse(1 To StrLen) As Boolean
ReDim lStr(1 To StrLen) As String * 1
For i = 1 To StrLen
lStr(i) = Mid(lstStr, i, 1)
Next
For i = 1 To StrLen
nCount = i
GoWith StrLen, 1, 0, ""
Next
End Sub
------------------------------------------------------------------------------------
Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)
Dim i As Byte
If Deep = nCount Then
Debug.Print lastStr
Exit Sub
End If
For i = nStart To ECount
If Not bUse(i) Then
bUse(i) = True
GoWith ECount, i, Deep + 1, lastStrlStr(i)
bUse(i) = False
End If
Next
End Sub
--------------------------------------------------------------------------------------

推荐阅读


上一篇：html5css3截屏，css截取图片

下一篇：幸福直播技巧，幸福直播技巧大全