13518219792
我很喜欢这种题目
创新互联建站专注于企业营销型网站、网站重做改版、五常网站定制设计、自适应品牌网站建设、HTML5、购物商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为五常等各大城市提供网站开发制作服务。
-------------------------------------------------------------------------
第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
Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Program
Public Shared Sub Main()
Dim connectionString As String = _
"Data Source=(local);Initial Catalog=Northwind;" _
"Integrated Security=true"
' Provide the query string with a parameter placeholder.
Dim queryString As String = _
"SELECT ProductID, UnitPrice, ProductName from dbo.Products " _
"WHERE UnitPrice @pricePoint " _
"ORDER BY UnitPrice DESC;"
' Specify the parameter value.
Dim paramValue As Integer = 5
' Create and open the connection in a using block. This
' ensures that all resources will be closed and disposed
' when the code exits.
Using connection As New SqlConnection(connectionString)
' Create the Command and Parameter objects.
Dim command As New SqlCommand(queryString, connection)
command.Parameters.AddWithValue("@pricePoint", paramValue)
' Open the connection in a try/catch block.
' Create and execute the DataReader, writing the result
' set to the console window.
Try
connection.Open()
Dim dataReader As SqlDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine( _
vbTab "{0}" vbTab "{1}" vbTab "{2}", _
dataReader(0), dataReader(1), dataReader(2))
Loop
dataReader.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Using
End Sub
End Class
这是我在vs2010中微软自带的MSDN示例代码里面拷的，是关于ADO.net连接sql的操作。
希望对你有帮助。 如果你还需要其他的，我也可以再拷给你看。
1、 单张图片保存法
对着你要保存的图片按鼠标右键，在弹出菜单中选择“图片另存为”，然后选择好你要保存的路径和文件名就可以了。
2、多张图片保存法
如果你想保存整个网页中的所有图片时可以采用本方法，因为它可以一次性的把所有图片文件都保存下来。方法是：看到你想保存的图片网页后，在IE浏览器中点击“文件 ”菜单中的“另存为”，把整个网页保存到硬盘，然后从中找到图片即可。注意，要选择“保存类型”中的“网页,全部 (*.htm;*.html)”。
3、快速保存法
在桌面上按鼠标右键，在弹出菜单中选择“新建 ”→“文件夹”，随便起个名字即可，这个文件夹就是用来保存图片的文件夹。当你在网页上看到喜欢的图片时，按住鼠标左键拖到图片到文件夹中就可以了，是不是很方便啊？
4、软件保存法
网页图片保存能手。
下载地址：
网文快捕。
下载地址：
WEPZIP。
下载地址：
5、对付加密图片的方法
网页中有些图片是经过加密处理过的，不能直接通过鼠标右键来下载，也不能把网页保存到硬盘中，有的甚至连工具栏都没有。这样的加密图片该怎么保存呢？很简单！只要先后打开两个IE窗口，其中一个用来显示你要下载图片的网页，另一个用来保存图片。用鼠标左键按住想要保存的图片不放，往另外一个IE窗口中拖动，图片就会到那个IE窗口中了，然后就可以使用鼠标右键的“图片另存为”功能，这样就得到加密图片了。
大家知道浏览网页过后，网页中的大量信息通常都会被保存在临时文件夹中（即TemporaryInternetFiles），所以我们可以在这里找到自己需要的图片，当然也包括被写保护的图片。运行看图软件ACDSee，点击“查看→导航面板→文件夹”，或者在文件浏览窗口中点击“文件夹”标签，找到 TemporaryInternetFiles文件夹，预览里面的图片，然后把你保存的图片另存下来即可。
