原创 將十進制數轉換成二進制數

先以數字23爲例 具體程序爲 Private Sub Command1_Click() Me.Font.Size = 60 Dim n As Byte n = 23 Const er As Byte = 2   Dim shang A

2020-06-09 19:25:50

原创 怎樣計算兩位數與一位數相乘

哈哈 我有來了 睏意來的太快 就像龍捲風 然而事實是 明明剛起沒多久.... 接下來 這次的最後一個內容 怎樣計算兩位數乘一位數 廢話不多說 直接上圖 真的感覺好神奇有沒有 下面就是具體程序拉 Option Base 1 Privat

2018-08-25 22:25:03

原创 S3：VB之15個數的排序（簡化版）

好睏 雖然我的眼睛是睜着的 但是意識好像已經不太清醒了 接着S2說的話 接下來就是如何排列15個數了 依然最先放出一目瞭然的結果圖 上圖的程序是這樣的 Private Sub Command1_Click() Cls Font.Si

2018-08-25 22:25:00 3

原创 怎樣計算階乘

週末忘做VB作業了 現在來補 今天下雨了 突然降溫的天 還是窩在寢室裏比較舒服 跟往常一樣 依舊先上圖 改變“階乘（）”括號內的數字 就可以算出不同數的階乘了 恩沒錯就是這樣 它的程序如下 Private Sub Command1_C

2018-08-25 22:24:59 1

原创 多位數乘一位數

我又來了 趕緊寫 寫完好睡覺 我覺得現在的VB課真的是越來越難聽懂了 對此我並不想多說什麼了 現在來說多位數乘一位數 具體的程序是 Private Sub Command1_Click() Cls Me.Font.Size = 50

2018-08-25 22:24:57

原创 s2：VB之如何在15個數中把最小的數放在最後

在S1之後，緊跟着更深一步的思考，如何對15個數排序，首先進行第一組排序，我們可以選出最小的數，然後把它放在最後 同樣先用效果圖說話 具體的程序如下： Private Sub Command1_Click() Cls Font.Siz

2018-08-25 22:24:57 1

原创 怎樣計算一位數與一位數相乘

不知道該說什麼 感覺現在的VB越來越難駕馭了 如果不讓看筆記自己寫 真的真的很有難度 現在先說怎樣計算一位數乘一位數 同樣用圖說話 具體程序如下 Option Base 1 Private Sub Command1_Click()  

2018-08-25 22:24:57 1

原创 s4：VB之如何更改排序的數字的數量

終於要結束了 欣慰的我來放出最後的大招 如果不想給15個數排序 想給10個或100個等等多個數排序的話 應該怎樣做呢！！ 只需要創建一個text就可以了 還有別忘了在程序最前面點通用加option base 1 因爲是前面的升級版 所以我

2018-08-25 22:24:57 2

原创 怎樣算出15個數的和

又來了 這周事情好多 抽時間寫VB 老實說 VB課上的內容沒怎麼聽懂 特別是for each t in a的那種方法 實在是運行不出來 下面就說說我運行出來的算15個數和的幾種方法 方法1： 具體程序爲： Option Explici

2018-08-25 22:24:57

原创 VB之15個數字的排序

15個數字的排序 step1.打開VB程序，在窗體上新建commandbutton圖標，在右側按鈕屬性欄中，將“caption”改爲“排序”，將“name”改爲“cmdSort” step2.雙擊按鈕圖標，編寫程序，程序如下： Priva

2018-08-25 22:24:22 1

原创 s1:VB之擺出15個數

清明假期三天，因爲家遠沒能回家，無所事事的待在寢室的我，終於想起了VB這項作業 首先， 如何利用VB擺出15個數呢？ 先上我的效果圖： 是不是很神奇.... 具體程序如下： Private Sub 排序_Click() Cls Fon

2018-08-25 22:24:20 1