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

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

我很喜欢这种题目

创新互联建站专注于企业营销型网站、网站重做改版、五常网站定制设计、自适应品牌网站建设、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

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


分享题目:vb.net大作业题目 vb程序设计作业答案
当前地址:http://scyanting.com/article/hicpdg.html