紅包VB編程

⑴ vb編程找零錢最佳組合

多個for嵌套循環可以實現。
把最大的零錢放入最內層循環，依次向外，最小的零錢放在最外層。

⑵ VB編程年會抽獎代碼

語言實現此程序。
以下是VB編程語言的實現示例：
'定義變數，存儲每個獎項的人數
Dim firstPrize As Integer = 3
Dim secondPrize As Integer = 5
Dim thirdPrize As Integer = 12
Dim souvenirPrize As Integer = 10
'定義變數，存儲抽獎結果
Dim firstPrizeList As New List(Of Integer)
Dim secondPrizeList As New List(Of Integer)
Dim thirdPrizeList As New List(Of Integer)
Dim souvenirPrizeList As New List(Of Integer)
'定義變數，存儲編號滾動的起始編號
Dim currentNum As Integer = 1
'循環抽取各種獎項
For i As Integer = 1 To firstPrize
'抽取一等獎，並將編號添加到一等獎名單中
firstPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To secondPrize
'抽取二等獎，並將編號添加到二等獎名單中
secondPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To thirdPrize
'抽取三等獎，並將編號添加到三等獎名單中
thirdPrizeList.Add(currentNum)
currentNum += 1
Next
For i As Integer = 1 To souvenirPrize
'抽取紀念獎，並將編號添加到紀念獎名單中
souvenirPrizeList.Add(currentNum)
currentNum += 1
Next
'輸出抽獎結果
Console.WriteLine("一等獎名單：" & String.Join(",", firstPrizeList))
Console.WriteLine("二等獎名單：" & String.Join(",", secondPrizeList))
Console.WriteLine("三等獎名單：" & String.Join(",", thirdPrizeList))
Console.WriteLine("紀念獎名單：" & String.Join(",", souvenirPrizeList))

⑶ VB採用什麼編程方法和運行機制

編程方法：VB.NET編程語言是一種真正的面向對象編程語言（VB4-VB6
只能稱為基於對象而不是面向對象，最明顯的特徵就是
VB4-VB6
都不支持類的繼承），和傳統
Visual
Basic
並不完全兼容。
運行機制：解釋語言，就是他的程序是假的，只是一個代碼包，還需要系統裡面一個程序來讀取運行，這就是VB效率不高的原因，還有就是為什麼經常要用到運行庫的原因

⑷ VB編程，做出來有紅包

做好了！！紅包大點兒！！

⑸ 需要一枚VB大神幫我修改一下代碼，可微信紅包表達感謝

我可以試試

⑹ 懸賞紅包vb.net問題

添加DataGridView,將數據表綁定
這個應該會吧,DataGridView添加行處理事件,事件里提取內容到文本
,也不需要確定按鈕,只需要增刪改查四個按鈕就能完成全部操作,不會再問

⑺ vb初學者的問題。沒有金幣，微信紅包致謝。

由於你的程序用到了部件，通過vb軟體編譯運行，控制項會自動保存在windows/system32目錄下，因此你的程序運行正常，我想你是直接編譯成exe文件給其它用戶使用才出現這種情況的吧，要給其它計算機用必須進行vb打包，打包的時候記得按照提示把控制項勾上哦。

⑻ 求一個VB小游戲編程，要有代碼的。。

貪吃蛇
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim C As Long
If KeyCode = 27 Then End
If KeyCode = 32 Then
If Timer1.Enabled = True Then
Timer1.Enabled = False
Label1.Visible = True
Else
Timer1.Enabled = True
Label1.Visible = False
End If
End If
C = UBound(She)
If GFangXiang = True Then Exit Sub
Select Case KeyCode
Case 37
If She(C).F = 2 Then Exit Sub
She(C).F = 0
GFangXiang = True
Case 38
If She(C).F = 3 Then Exit Sub
She(C).F = 1
GFangXiang = True
Case 39
If She(C).F = 0 Then Exit Sub
She(C).F = 2
GFangXiang = True
Case 40
If She(C).F = 1 Then Exit Sub
She(C).F = 3
GFangXiang = True
End Select
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = &HC000&
Me.FillColor = 255
Me.FillStyle = 0
Me.ScaleWidth = 24
Me.ScaleHeight = 24
Me.WindowState = 2
Set Timer1 = Controls.Add("VB.Timer", "Timer1")
Set Label1 = Controls.Add("VB.Label", "Label1")
Label1.AutoSize = True
Label1.BackStyle = 0
Label1 = "暫停"
Label1.ForeColor = RGB(255, 255, 0)
Label1.FontSize = 50
ChuShiHua
End Sub

Private Sub Form_Resize()
On Error GoTo 1:
With Me
If .WindowState <> 1 Then
.Cls
.ScaleMode = 3
HWB = .ScaleHeight / .ScaleWidth
.ScaleWidth = 24
.ScaleHeight = 24
Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2
HuaTu
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End If
End With
1:
End Sub

Private Sub Timer1_Timer()
Dim C As Long, I As Long
On Error GoTo 2:
QingChu
C = UBound(She)
Select Case She(C).F
Case 0
If ZhuangTai(She(C).X - 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X - 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 1
If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y - 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then
GoTo 2:
End If
Case 2
If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X + 1
She(C).Y = She(C - 1).Y
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then
GoTo 2:
End If
Case 3
If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then
C = C + 1
ReDim Preserve She(C)
She(C).F = She(C - 1).F
She(C).X = She(C - 1).X
She(C).Y = She(C - 1).Y + 1
ChanShengShiWu
GoTo 1:
ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then
GoTo 2:
End If
End Select
ZhuangTai(She(0).X, She(0).Y) = 0
For I = 0 To C
Select Case She(I).F
Case 0
She(I).X = She(I).X - 1
Case 1
She(I).Y = She(I).Y - 1
Case 2
She(I).X = She(I).X + 1
Case 3
She(I).Y = She(I).Y + 1
End Select
Next
TiaoZheng
1:
GFangXiang = False
ZhuangTai(She(C).X, She(C).Y) = 1
HuaTu
Exit Sub
2:
If MsgBox("游戲結束，點「是」重新開始游戲，點「否」", vbYesNo, "貪吃蛇") = vbYes Then
ChuShiHua
Else
End
End If
End Sub

Private Sub ChuShiHua()
Me.Cls
Timer1.Enabled = True
Timer1.Interval = 200
Erase ZhuangTai
ReDim She(2)
She(0).F = 2
She(0).X = 9
She(0).Y = 11
ZhuangTai(9, 11) = 1
She(1).F = 2
She(1).X = 10
She(1).Y = 11
ZhuangTai(10, 11) = 1
She(2).F = 2
She(2).X = 11
She(2).Y = 11
ZhuangTai(11, 11) = 1
HuaTu
ChanShengShiWu
End Sub

Private Sub QingChu()
Dim I As Long
For I = 0 To UBound(She)
Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF
Next
End Sub

Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub

Private Sub TiaoZheng()
Dim I As Long
For I = 0 To UBound(She) - 1
She(I).F = She(I + 1).F
Next
End Sub

Private Sub ChanShengShiWu()
Randomize Timer
1:
X = Int(Rnd * 24)
Y = Int(Rnd * 24)
If ZhuangTai(X, Y) > 0 Then GoTo 1:
ZhuangTai(X, Y) = 2
Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF
End Sub

直接復制到空代碼窗口

⑼ vb做一個搶紅包系統教程

1、找到搶紅包的網址
2、分析這個網址，找出來所需點擊的按鈕或鏈接的id或name等信息，模擬點擊。
感覺這辦法雖然准確，但難度有點大。
建議用按鍵精靈寫吧，查圖片，模擬按鍵的方式來寫，更簡單。另外按鍵精靈有手機版的，也便於你將來到手機上用。