vb.net经典例题 vb net

vb.net 简单小问题

还是用数组比较好吧vb.net经典例题，按钮数组

然后call Button_Click(5vb.net经典例题，Nothing, Nothing) 就可以vb.net经典例题了

按钮数组可以先创建一个按钮vb.net经典例题，然后复制粘贴即可

相关问答

Q1: VB编程的一道题 熟悉VB编程的来帮帮忙！

窗体标题实现：单击时：form1.caption="鼠标单击" print"欢迎使用" 双击时：form1.caption="鼠标双击" print"结束使用" 本人只知道这点，希望能给你提示，我学的是vb.net

Q2: 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) 变量名的第一个字符必须是字母或汉字

Q3: vb.net复选框及字体颜色问题 题目是图上的第十题，计算代码我会做，但是那个红字黄底的代码怎么写

        TextBox1.ForeColor = Color.Red

        TextBox1.BackColor = Color.Yellow

        TextBox1.Text = 1234

Q4: vb.net面试题，请大家帮忙，谢谢。

如果需要讲详细一点,那就加我QQ531412815

第4题,潜在的错误,这里的错误不是常规错误,属于那种只有在运行是才知道的错误:

Catch ex As Exception

MsgBox(ex.StackTrace)

'永远不会查找下面的错误

Catch ex As ArgumentNullException

MsgBox("Input Test box cannot be null.")

Catch ex As OverflowException

MsgBox("Input Test box 2 cannot be zero!")

Catch ex As FormatException

MsgBox("Input Test box should be numeric format!")

结构化错误处理永远达不到下面这里,因为Catch ex As Exception 已经处理了所有错误.

第5题：

00123

1000 60.50

2000 60.00

3500 59.50

---- -----

6500 60.00

00124

3000 60.50

---- -----

3000 60.50

00125

2000 59.50

1000 58.00

---- -----

3000 58.75

就是按照Ref_ID 分类，有一种方法就是按照Ref_ID 分组，也就是使用SQL语言，不过这里需要该很多，

我就不用了，那么就稍微复杂一点，使用FIND方法,不过有一点必须注意REF_ID必须排序，因为数据库中

已经排好序了，我就不用排了。

Dim rst as ADODB.Recordset

dim refID as string

Rst = GetRecordset

Do While Not rst.EOF

refid=rst(0)

Console.writeline(rst.Fields("Ref_ID")

do

Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))

rst.MoveNext()

loop while rst(0)=refid

Loop

第6题：就是从一个集合中取元素输出的问题

比较简单的办法就是使用递归

以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会,所以就将就一下)

Dim bUse() As Boolean

Dim lStr() As String * 1

Dim nCount As Byte

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

Public Sub Combination(lstStr As String)

Dim i As Byte

Dim j As Byte

Dim StrLen As Byte

StrLen = Len(lstStr)

ReDim bUse(1 To StrLen) As Boolean

ReDim lStr(1 To StrLen) As String * 1

For i = 1 To StrLen

lStr(i) = Mid(lstStr, i, 1)

Next

For i = 1 To StrLen

nCount = i

GoWith StrLen, 1, 0, ""

Next

End Sub

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

Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)

Dim i As Byte

If Deep = nCount Then

Debug.Print lastStr

Exit Sub

End If

For i = nStart To ECount

If Not bUse(i) Then

bUse(i) = True

GoWith ECount, i, Deep + 1, lastStr lStr(i)

bUse(i) = False

End If

Next

End Sub

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

Private Sub Form_Load()

Combination "wxyz"

End Sub

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

其中GOWITH是真正的递归函数,而Combination是用来预处理字符的

全局变量:

BUSE：用来确定是否使用过这个元素

lSTR：用来保存字符元素

NCOUNT：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数

实际测试成功，另外我对前三题很感兴趣，希望能够传给我

vb.net经典例题的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb net、vb.net经典例题的信息别忘了在本站进行查找喔。