求解：兩道計(jì)算機(jī)VB編程題目 問兩道計(jì)算機(jī)二級(jí)vb的題目
(1)
窮舉法，列出從1000到9999所有的4位數(shù)，分別測試其是否等于所分兩個(gè)兩位數(shù)和的平方。
(2)
計(jì)算結(jié)果：
2025=(20+25)^2
3025=(30+25)^2
9810=(98+10)^2
(3)
代碼如下：
Private Sub Command1_Click()
For i = 1000 To 9999
If ((i \ 100) + (i Mod 100)) ^ 2 = i Then
Print i; "=("; i \ 100; "+"; i Mod 100; ")^2"
End If
Next i
End Sub
3、
(1)
窮舉法，列出從1001到29999所有的自然數(shù)，分別測試其是否能同時(shí)被32和47整除。
(2)
由于47是質(zhì)數(shù)，所以判斷這個(gè)數(shù)是否能被32和47的最小公倍數(shù)1504整除，如果能整除那么這個(gè)數(shù)能同時(shí)被32和47整除。
代碼如下：
For i = 1001 To 29999
a = 32 * 47
If i Mod a = 0 Then
Print i
End If
Next i
(3)
計(jì)算結(jié)果：
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27072 28576
================
希望對(duì)你有所幫助！
求解:兩道計(jì)算機(jī)VB編程題目
9810=(98+10)^2 (3)代碼如下：Private Sub Command1_Click()For i = 1000 To 9999 If ((i \\ 100) + (i Mod 100)) ^ 2 = i Then Print i; "=("; i \\ 100; "+"; i Mod 100; ")^2"End If Next i End Sub 3、(1)窮舉法，列出從1001到29999所有的自然數(shù)，分別測試其是...
2道VB題執(zhí)行以下程序段a$="abbacddcba"Fori=
第2題是一個(gè)VBA（Visual Basic for Applications）程序，其中定義了一個(gè)名為a的數(shù)組，包含元素1到5。程序通過一個(gè)循環(huán)計(jì)算數(shù)組中所有元素的總和，并將結(jié)果存儲(chǔ)在變量sum中。然后，程序計(jì)算平均值x，即sum除以數(shù)組的長度（這里是5）。接下來，程序再次通過循環(huán)打印出數(shù)組中所有大于平均值的元素。因?yàn)閿?shù)組a...
做兩個(gè)VB程序 簡單題目
1.用VB編程序設(shè)計(jì)一個(gè)簡易的計(jì)算器 代碼：Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = Label1.Caption + "." Case 1...
VB編程題目求解
該工程文件中有兩個(gè)窗體form1、form2，要求將form2設(shè)為啟動(dòng)窗體。運(yùn)行時(shí)，單擊form2上的“顯示”按鈕，則顯示出form1窗體，單擊form1的“隱藏”按鈕，則form1窗體消失。form2的“顯示”按鈕代碼：form1.Show 單擊form1的“隱藏”按鈕，則form1窗體消失。代碼：form1.hide 以下數(shù)列：1,1,2,3,5,8...
急!80分求解答大一VB題目(2)
1．Visual Basic程序設(shè)計(jì)的完整的步驟是 C．可視性程序設(shè)計(jì)和代碼程序設(shè)計(jì) 2．在 Visual Basic環(huán)境下，當(dāng)寫一個(gè)新的 Visual Basic程序時(shí)，所做的第一件事是 B．新建一個(gè)工程 3．要求改變窗體的標(biāo)題時(shí)，應(yīng)當(dāng)在屬性窗口中改變的屬性是 A． Caption 4．窗體能響應(yīng)的事件是 C．Load 5．在以下事件過程...
VB編程題!求答案!急急!
這是一個(gè)VB編程題目，涉及到數(shù)組操作和循環(huán)邏輯。首先，程序生成一個(gè)10個(gè)元素的整數(shù)數(shù)組，每個(gè)元素值在0到99之間隨機(jī)生成。接著，程序通過循環(huán)檢查數(shù)組中的重復(fù)值，并跳過生成重復(fù)值的步驟。如果生成的值大于9，則繼續(xù)生成新值。接下來，程序遍歷數(shù)組，尋找最大值及其位置。具體而言，它初始化最大值為...
VB大神幫幫忙>< 1)設(shè)計(jì)一個(gè)VB程序,計(jì)算一周7天的最高溫度的平均值。要求...
第二道題目要求我們?cè)O(shè)計(jì)一個(gè)程序來找出一個(gè)隨機(jī)數(shù)組中的最大值及其位置。首先，我們定義一個(gè)長度為10的數(shù)組a，并使用For循環(huán)填充隨機(jī)數(shù)。然后，我們定義一個(gè)變量Max來存儲(chǔ)當(dāng)前找到的最大值，以及一個(gè)變量n來記錄最大值的位置。通過一個(gè)嵌套的For循環(huán)，我們遍歷數(shù)組，比較當(dāng)前值與Max的大小。如果當(dāng)前值...
VB簡易程序設(shè)計(jì)代碼
Text1.Text = "程序設(shè)計(jì)第一步：設(shè)計(jì)界面"End Sub Private Sub Command2_Click()Text1.Text = "程序設(shè)計(jì)第二步：屬性設(shè)置"End Sub Private Sub Command3_Click()Text1.Text = "程序設(shè)計(jì)第三步：編寫代碼"End Sub 題目三：Private Sub Command1_Click()Text1.PasswordChar = "*"End Sub 題目...
vb程序設(shè)計(jì)題求解!!!謝謝各位了!!
For i = 2 To k '我這里只求了一組解，也許有不同的組合而剩下距離相同的情況 我就沒有再列出來的··If min > n_left(i) Then j = i min = n_left(i)End If Next Print "最小剩余組合：17m X" & n_a(j) & "根，27m X" & n_b(j) & "根，剩余最小長度為" & n_...
VB編程這題有人會(huì)嗎幫忙下謝謝!!好的就直接采納了
分析題目: 需要用到的程序結(jié)構(gòu)是循環(huán): 打印字母,每行6個(gè),一共6行, 那么就是打印36次, 所以循環(huán)應(yīng)該是0到35次 或者1到36次;需要用的主要運(yùn)算是 Mod取模; \\整除運(yùn)算 Private Sub Form_Load()Form1.Show '窗口顯示出來Print '換行.離上邊框遠(yuǎn)點(diǎn)PrintDim i As Integer '定義一個(gè)整數(shù)iFor i ...
相關(guān)評(píng)說：
平定縣柔性： ______ 第一題建一個(gè)Command1Private Sub Command1_Click()Dim a As LongDim c As LongFor c = 25 To 50a = Sqr(c ^ 2 - 24 ^ 2)Debug.Print a, 24, cNext cEnd Sub是第二題的建一個(gè)Command1先隨意估計(jì)一個(gè)...
平定縣柔性： ______ 首先“落葉|無情”的代碼很好,但是我想題目中所說“用7a686964616fe58685e5aeb931333335326137Sub過程和Function過程兩種方法來實(shí)現(xiàn)”的意思,應(yīng)該是用這兩個(gè)獨(dú)立實(shí)現(xiàn)求階乘和,而不是在Sub中還要調(diào)用Function.當(dāng)然,在Sub過...
平定縣柔性： ______[答案] 首先“落葉|無情”的代碼很好,但是我想題目中所說“用Sub過程和Function過程兩種方法來實(shí)現(xiàn)”的意思,應(yīng)該是用這兩個(gè)獨(dú)立實(shí)現(xiàn)求階乘和,而不是在Sub中還要調(diào)用Function.當(dāng)然,在Sub過程中,最終結(jié)果還要用Msgbox之類的語句來顯示出來...
平定縣柔性： ______ (1) Private Sub Form_Load() Combo1.AddItem ＂回族＂ Combo1.AddItem ＂漢族＂ Combo1.Text = ＂漢族＂ End Sub Private Sub Command1_Click() Dim Sex As String, Hobby As String '判斷性別 If Option1.Value = True Then Sex = Option1....
平定縣柔性： ______ Private Sub Command1_Click() c = InputBox(＂請(qǐng)輸入當(dāng)前的攝氏溫度＂) f = c * 9 / 5 + 32 If c <= 0 Then MsgBox (＂當(dāng)前的華氏溫度為＂ & f & ＂太冷了＂) If c > 0 And c <= 30 Then MsgBox (＂當(dāng)前的華氏溫度為＂ & f & ＂溫度適中＂) ...
平定縣柔性： ______ Private Sub Command1_Click(Index As Integer) DetermineFunctionalValue Index End Sub Private Sub DetermineFunctionalValue(ByVal i As Integer) Print Command1(i).Caption + ＂:＂; Dim x As Single, y As Single x = InputBox(＂x=＂, ＂第(...
平定縣柔性： ______ (1) Option Base 1 Dim a!(20), i! Private Sub Form_Load() a(1) = 0 a(2) = 1 For i = 3 To 20 a(i) = a(i - 1) + a(i - 2) Next For i = 1 To 20 Text1.Text = Text1.Text & a(i) & ＂ ＂ Next End Sub (2) Option Base 1 Dim a!(20), i!, j!, k!, index!, m! Private Sub ...
平定縣柔性： ______ 1、選(A)100.FOR循環(huán)完成后,I為11,這里用a(11 - 1)取得a(10)的值,也就是10^2=100.6、選(A)5.FOR中通過INPUT對(duì)s(6)到s(10)進(jìn)行了賦值操作,s(5)沒有賦值,所以是數(shù)組初始值0.s...
平定縣柔性： ______ Private Sub Command1_Click() Dim n, sum n = Val(InputBox(＂n=＂)) l = Len(Trim(Str(n))) For i = 1 To l sum = sum + Val(Mid(Trim(Str(n)), i, 1)) ^ 2 Next i If sum = n \ 9 Then MsgBox ＂true＂ Else MsgBox ＂false＂ End If End Sub Private Sub ...
平定縣柔性： ______ Private Sub Picture1_Click() Text1.Text = ＂單擊上鍵＂ End Sub Private Sub Picture2_Click() Text1.Text = ＂單擊左鍵＂ End Sub Private Sub Picture3_Click() Text1.Text = ＂單擊右鍵＂ End Sub Private Sub Picture4_Click() Text1.Text = ＂單擊下鍵＂ End Sub
