如果需要讲详细一点,那就加我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 分类,有一种方法就是按照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") vbcrlf rst.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, lastStr lStr(i)
bUse(i) = False
End If
Next
End Sub
--------------------------------------------------------------------------------------
Private Sub Form_Load()
Combination "wxyz"
End Sub
--------------------------------------------------------------------------------------
其中GOWITH是真正的递归函数,而Combination是用来预处理字符的
全局变量:
BUSE:用来确定是否使用过这个元素
lSTR:用来保存字符元素
NCOUNT:用来限制递归函数的深度,换句话说,就是输出元素组中的元素个数
实际测试成功,另外我对前三题很感兴趣,希望能够传给我
我很喜欢这种题目
-------------------------------------------------------------------------
第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
Public Class Form3
Dim A(19) As Integer '声明数组20个
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = ""
Label3.Text = ""
Randomize()
Dim i As Integer
For i = 0 To UBound(A)
A(i) = CInt(Rnd() * 400 + 100)'随机数100~500
Label1.Text = A(i) " "
If (i + 1) Mod 5 = 0 Then '每5个数就换行
Label1.Text = vbCrLf
End If
Next
Dim mina As Integer
mina = Amin(A)
If mina 0 Then
Label3.Text = "比第一个数组元素值大的数组元素中值最小的是:" mina
Else
Label3.Text = "没有比第一个数组元素大数!"
End If
End Sub
Function Amin(ByVal Aa() As Integer) As Integer
Dim first As Integer
Dim tmpmin As Integer
Dim j, i As Integer
Dim tmpa() As Integer = A
first = A(0) '第一个数出来
For j = 1 To UBound(tmpa) ’从第二个数冒泡
tmpmin = tmpa(j)
For i = j To UBound(tmpa)
If tmpa(i) tmpmin Then '从小数到大数冒泡
tmpa(j) = tmpa(i)
tmpa(i) = tmpmin
tmpmin = tmpa(j)
End If
Next
Next
For i = 0 To UBound(tmpa)
If tmpa(i) first Then ’从小数开始比较,如果小比第一个元数大就退出
tmpmin = tmpa(i) ' 取到比第一个元数大的数
Exit For
End If
Next
Return tmpmin '返回值
End Function
End Class
1.目前.NET开发环境提供了那些程序设计语言的开发功能:visual C#和visual basic ,其实还有J#2.JIT是什么的缩写:Just-In-Time3.对象的什么属性在程序运行过程中,只能被引用,不能被修改:不记得了
4.要使某个控件在程序启动后,能看见,但不能用,应使该控件的enabled属性为:false
5.程序启动后,要使某个控件获得焦点,应使用该控件的 Focus 方法
6.checkbox控件的 Checked 属性决定了该控件的状态
7.要使textbox控件在程序启动后,只能显示只定内容,不能修改,应使readonly属性值为:true8.滚动条控件的 Value 属性值,反映了滚动条滑快的当前取值
9.改变窗体的标题,应修改窗体的 Text 属性
10.程序运行过程中,要向listbox控件中添加一项,应该使用 Items.Add 方法
你好!
编程序不是背书,临时抱佛脚是不行的。找个家教什么的,强化一下,还是有希望的。
那啥,我只知道VB6.0的,不知道对你有没有用:
1.笔试+机试
2.有本
3.模拟题(机试),找 珊瑚虫 版的,网上搜搜。笔试也可以搜得到。
4.买书就没必要了,二级嘛,相当于入门级的,没什么挑战呐。
5.这个本本是全国的。
祝你好运!如有疑问欢迎追问,如果觉得我的解答对你有帮助,望采纳,谢谢!
实在不难,就是不知道你写了代码没有?
答案补充:
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")
End Sub