vb.net大作业题目 vb程序设计作业答案

还有两道vb.net面试题，请大家帮忙，谢谢。

我很喜欢这种题目

-------------------------------------------------------------------------

第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

用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值

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

VB.NET的题目哈 随机产生20个大写字母，求出现次数最多的字母及出现次数，还有求出现次数为0的字母有哪些

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

VB.NET大作业，跟数据库有关就好，简单一点

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文件夹，预览里面的图片，然后把你保存的图片另存下来即可。