13518219792
'这是在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
右上部分的:
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
不知道标准答案是什么，我只说一下我的看法。
1.错。一个窗体文件可以被多个工程使用。
2.错。有些属性在运行时是只读的，不能赋值。
3.错。个人理解“装入内存”这点描述不正确。
4.正确。
5.错。vb中，textbox显示文字的属性是.Text，Label是.Caption。（但是，在vb.net中，textbox和label的文字属性都是.Caption）
我做个托盘（Form1窗体），然而我退出时是通过Form3输入正确的用户名和密码后才能退出！请问退出时怎么删除托盘图标？？？
还有在托盘的时候如何做才能在托盘上点击左键即显示Form3？？
谢谢了！
首先说明我熟悉的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
一、下面的 _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) 变量名的第一个字符必须是字母或汉字
