十年網站開發(fā)經驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網站問題一站解決
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

創(chuàng)新互聯(lián)公司堅持“要么做到,要么別承諾”的工作理念,服務領域包括:做網站、成都做網站、企業(yè)官網、英文網站、手機端網站、網站推廣等服務,滿足客戶于互聯(lián)網時代的大余網站設計、移動媒體設計的需求,幫助企業(yè)找到有效的互聯(lián)網解決方案。努力成為您成熟可靠的網絡建設合作伙伴!
Dim?aa?As?Integer?=?Val(TextBox1.Text)
Dim?i?As?Integer
For?i?=?2?To?aa
If?aa?Mod?i?=?0?Then
TextBox2.Text?+=?i.ToString?+?"??"
aa?=?aa?/?i
i?=?2
End?If
Next
End?Sub
Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
TextBox1.Text?=?ss()
TextBox2.Text?=?ss()
End?Sub
Function?ss()
Randomize()
Dim?a?As?Integer?=?Int(Rnd()?*?100)
Return?a
End?Function
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
If?Val(TextBox1.Text)?+?Val(TextBox2.Text)?=?Val(TextBox3.Text)?Then
i?+=?1
Label3.Text?=?"正確"
Else
j?+=?1
Label3.Text?=?"錯誤"
End?If
aa?+=?1
End?Sub
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
TextBox1.Text?=?ss()
TextBox2.Text?=?ss()
TextBox3.Text?=?""
Label3.Text?=?""
End?Sub
Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click
TextBox4.Text?=?"你已經答了"?+?aa.ToString?+?"題,答對"?+?i.ToString?+?"題,"?+?"答錯"?+?j.ToString?+?"題。"
End?Sub
寫程序不就行了,左邊觸發(fā)單擊事件,然后執(zhí)行相應的程序塊之右邊的內容變動就行了。
新建一個Sub : Main
Private Sub Main()
xxx.show 'xxx指啟動窗體
'載入圖片、數(shù)據(jù)庫之類的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-屬性將"Main"作為啟動對象