vb.net经典例题 vb经典程序例题及分析

vb.net 数组显示矩阵的一道题

'这是在vb6中的代码，在vb.net中基本差不多，你可以参考一下

在南雄等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站制作、网站设计 网站设计制作按需定制制作,公司网站建设,企业网站建设,成都品牌网站建设,成都全网营销推广,成都外贸网站制作,南雄网站建设费用合理。

Private Sub cmdCommand1_Click()

Me.AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i为位移量

StrPrt = ""

For j = i To UBound(Grp)

StrPrt = StrPrt Grp(j)

Next j

For j = 0 To i - 1

StrPrt = StrPrt Grp(j)

Next j

Me.Print StrPrt

Next i

End Sub

用vb.net设计程序，打印九九乘法表的右上部分和右下部分

右上部分的:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim se$, i%, j%

Label1.Text = Space(35) "九九乘法表" vbCrLf

Label1.Text = Space(35) "_________" vbCrLf

For i = 1 To 9

For j = 1 To 9

If j = i Then

se = i "×" j "=" i * j

Label1.Text = se Space(8 - Len(se))

Else

se = ""

Label1.Text = se Space(9 - Len(se))

End If

Next j

Label1.Text = vbCrLf

Next i

End Sub

左下部分的:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim se$, i%, j%

Label1.Text = Space(35) "九九乘法表" vbCrLf

Label1.Text = Space(35) "_________" vbCrLf

For i = 1 To 9

For j = 1 To i

se = i "×" j "=" i * j

Label1.Text = se Space(8 - Len(se))

Next j

Label1.Text = vbCrLf

Next i

End Sub

VB的一些判断题……求教

不知道标准答案是什么，我只说一下我的看法。

1.错。一个窗体文件可以被多个工程使用。

2.错。有些属性在运行时是只读的，不能赋值。

3.错。个人理解“装入内存”这点描述不正确。

4.正确。

5.错。vb中，textbox显示文字的属性是.Text，Label是.Caption。（但是，在vb.net中，textbox和label的文字属性都是.Caption）

有谁能给几道VB题做做??

我做个托盘（Form1窗体），然而我退出时是通过Form3输入正确的用户名和密码后才能退出！请问退出时怎么删除托盘图标？？？

还有在托盘的时候如何做才能在托盘上点击左键即显示Form3？？

谢谢了！

一道VB入门题

首先说明我熟悉的VB6里这个应该可以实现，关于VB.NET我不知道能否实现。

其基本原理是，VB6的窗体有一个坐标属性可以设置和返回当前输出的位置到坐标点，该属性的名称为：

Me.CurrentX --- 当前输出位置的X坐标

Me.CurrentY --- 当前输出位置的Y坐标

比如，默认的小五号字，一个英文的宽度为90个单位，代码如下：

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim z As Integer

Dim L As Integer

Dim s As String

Dim linen As Integer

linen = Val(InputBox("请输入输出的行数！"))

L = (linen / 2) * 90 '注意这里90是针对小五号字，如果字号变化，请也做相应变化

z = 96

For i = 1 To linen

L = L - 45

z = z + 1

s = ""

For j = 1 To i

Me.CurrentX = L

s = s Chr(z)

Next j

Print s

Next i

End Sub

vb的选择题，各位帮帮忙哈

一、下面的 _A___ 是合法的变量名。

A) X_yz

B) 123abc

C) Integer

D) X-Y

二、下面的 __A__ 是合法的单精度型变量。

A) num!

B) sum%

C) xinte$

D) mm#

三、下列可以作为变量名的是 _A___。

A) Chinese$

B) X(X+Y)

C) 123BOOK

D) BOOK-1

四、以下各项，可以作为变量名的是 __A__。

A) English

B) 11_English

C) 123.45

D) English-1

五、在 VB.NET 中，认为 __B__ 中的两个变量名是相同的。

A) English 和 EngUsh

B) English 和 ENGLish

C) English 和 Engl

D) English 和 England

六、语句 Dim MyVar 定义的变量 MyVar 为 __D__ 类型的变量。

A) Integer

B) String

C) Boolean

D) Object

七、语句 Dim intX，intY As Double 中所定义的变量 intX 是 __B__ 变量。

A) String

B) Object

C) Single

D) Double

八、下列符号常量的声明中，不合法的是 _B___。

A) Const A As Single = 1.5

B) Const A As Double = Sin(1)

C) Const A = "OK"

D) Const A As Integer = 1.5

九、在默认的状态下，系统对使用的变量要求显式声明，若要对变量不声明而直接使用（隐式声明），须在模块中所有程序代码的最前面加入语句 _B___。

A) Option Base 0

B) Option Explicit Off

C) Option Explicit On

D) Option Compare

十、下述说法不正确的是 __B__。

A) 变量名的长度不能超过1023个字符

B) 变量名可以包含小数点或者内嵌的类型声明字符

C) 变量名不能使用关键字

D) 变量名的第一个字符必须是字母或汉字