189 8069 5689
我很喜欢这种题目
成都创新互联公司专注于温泉企业网站建设,响应式网站,成都商城网站开发。温泉网站建设公司,为温泉等地区提供建站服务。全流程按需求定制制作，专业设计，全程项目跟踪，成都创新互联公司专业和态度为您提供的服务
-------------------------------------------------------------------------
第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
Private Sub Command1_Click()
Dim A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Print C
End Sub
Private Function f(n)
Dim I As Integer
f = 1
For I = 1 To n
f = f * I
Next I
End Function
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim g() As Char = a.ToCharArray
Dim MyRandom As New Random
Dim bs As String = ""
For i = 1 To 20
bs = g(MyRandom.Next(0, g.GetUpperBound(0) + 1))
Next
Dim gs() As String = (From mt As Match In Regex.Matches(bs, "[A-Z]") Select mt.Value).ToArray
System.Array.Sort(gs)
gs = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Value).ToArray
Dim g_len() As Integer
g_len = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Length).ToArray ' 使用数组元素作为计数器g_len
System.Array.Sort(g_len, gs)
Label1.Text = "出现次数最多的字母：" gs(gs.GetUpperBound(0)).Substring(0, 1) " 共出现" g_len(g_len.GetUpperBound(0)) "次" vbCrLf "没有出现的字母是：" Join(a.Split(bs.ToCharArray), "")
End Sub
End Class
AutoCAD会了，要学会使用插件。如果自己学会开发的话，还是不错的。教程的文件有些大，看附件下载。
1.不正确
Dim abc As myClass，定义一个可以引用myClass类型对象的变量abc。这个abc变量存在于栈上。
abc=New myClass。New myClass创建myClass实例对象，这个对象存在于托管堆上。然后（同时）让abc引用（指向）这个对象。
abc变量在栈上，而对象在托管堆上。
abc储存的是对象的地址，而不是对象本身。
看下面的代码
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整个过程中只创建了一个myClass对象，位于托管堆上。
三个myClass类型的变量a、b、c位于栈上，都指向了这一个myClass对象
2.类的成员分 实例成员 和 静态成员
实例成员 必须在实例对象上调用
静态成员 可以直接调用，不需要实例对象。