vb2010編程
Ⅰ 求VB2010像素鳥編程代碼
有了前面的入門教程,這篇教程理解起來會簡單很多。先來張圖看看游戲效果。
本教程源碼地址:碼雲github
現在開始分析這個游戲如何製作。我們首先添加幾個游戲場景。
Ⅱ VB編程這題怎麼寫
vb2010寫的程序運行兩百次速度還可以,如果要運行再多的次數可以開個多線程去運算就不會卡了
運行前
PrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesButton1.Click
Dim計數器=0
TextBox4.Text="0."
DoWhile計數器<TextBox3.Text
TextBox1.Text=TextBox1.Text*10
TextBox4.Text=TextBox4.Text&TextBox1.TextTextBox2.Text
TextBox1.Text=TextBox1.TextModTextBox2.Text
If(計數器+3)Mod20=0ThenTextBox4.Text&=vbCrLf
計數器+=1
IfTextBox1.Text=0ThenExitDo
Loop
Label1.Text="運算結束,共運算了"&計數器&"次"
EndSub
Ⅲ vb2010與vb6.0中的控制項用法完全不同,請問高手,在vb2010中控制項combobox的用法請您費心了。
vb6.0的Combo1 與 vb2010的Combobox1用法有很大區別,就你補充的代碼可以這樣實現:
Me.ComboBox1.Items.Clear()
Dim arrayindex As Integer = 0
Dim m0 As Integer = 5 '姑且等於5吧
For j As Integer = 1 To m0
arrayindex = arrayindex + 1
Me.ComboBox1.Items.Add(gg(j)) 'gg() 要你事先求好
Microsoft.VisualBasic.Compatibility.VB6.SetItemData(ComboBox1, ComboBox1.Items.Count() - 1, arrayindex) '要引用Microsoft.VisualBasic.Compatibility
Next j
ComboBox1.Text = ComboBox1.Items(i - 1) ' i你要事先定義付值
Ⅳ 求教用vb2010編程出輸出函數什麼的
PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Click
Dima,b,c,dAsSingle
Dimh,i,jAsString
DimkAsDate
a=45.632
b=8246.25
c=123.8
d=45627
h="student"
i="permanence"
j="teachers"
k=#4/5/2004#
MsgBox(Format(a,"00000.00")&Format(b,"00000.00")&Format(c,"00000.00")&Format(d,"00000.00")&Chr(13)&Chr(10)&_
h&Space(12-Len(h))&i&Space(12-Len(i))&j&Space(12-Len(j))&Format(k,"ddddd"))
EndSub
Ⅳ 我是VB初學者,但是現在有個程序需要用MICROSOFT VISUAL BASIC 2010軟體編程。 緊急求教該怎麼編謝謝
首先我們觀察一下這個變換規則。二進制0000就是十進制0,二進制0001就是十進制1,二進制0010就是十進制2……總之,把字元串的前半段和後半段各看為一個2進制數,則每經過一次迭代,這兩個數分別加1。迭代三次,加三次1就可以了。但1111接下來是0000,也就是說這兩個二進制數不能大於15。如出現大於十五的情況應減十五。
先來一個Textbox(假定為Textbox1)和一個Button(假定為Button1),定義如下五個變數:a,b,i,j為整數,Tempstr為字元串。然後雙擊按鈕,在按鈕中的Click事件下寫如下代碼:
1.讀取字元串
a=0
b=0
For i = 1 To 4
a = a * 2 + Val(GetChar(Textbox1.Text, i))
Next
For i = 5 To 8
b = b * 2 + Val(GetChar(Textbox1.Text, i))
Next
2.處理
tempstr=""
For j=1 To 3
tempstr=tempstr+" 迭代"+str(j)+"次:"
a=a+1
b=b+1
if a>15 then a=a-15
if b>15 then b=b-15
For i = 1 To 4
Tempstr = Str(b Mod 2) + Tempstr
b = b \ 2
Next
For i = 1 To 4
Tempstr = Str(a Mod 2) + Tempstr
a = a \ 2
Next
Next
textbox1.text=tempstr
Ⅵ 跪求VB2010 編程的小游戲!!!!
給你發了3個游戲:打磚塊、PACMAN、五子棋
Ⅶ vb2010 編程 form1.vb 設計界面丟失 但可以運行 ,也可以修改編程內容,界面不能顯示,不能修改界面。
在右側解決方案管理器當前項目上右鍵(就是在「11」上右鍵)→添加→現有項→定位到這個項目目錄下面的 Form1.vb 和 Form1.Designer.vb 上(如果有資源文件還有個 Form1.resx),添加。
Ⅷ vb2010 在win7上編譯的程序無法在xp上運行
這個是由於兼容性不好造成的。
解決辦法:
1、更換電腦的操作系統為XP,在XP環境下編寫。
2、直接使用win7系統編寫針對於win7系統的程序,這個是發展趨勢。
3、更換軟體利用其他第三方軟體進行編程製作。
Ⅸ VB2010編程問題、、高分求解
好多控制項名稱和屬性變了,不能生搬硬套,希望樓主加強學習
Ⅹ VB2010編寫綠色免安裝軟體
VB6.0和VB.NET是有差別的,並不是說不支持控制項數組,而是無法用可視化的方法創建而已。理解對象編程會對你有所幫助。