用vb編程

2024-01-29 02:37投诉举报

已知四位數(shù)如3025有一個(gè)特殊的性質(zhì):它的前兩位數(shù)字30和后兩位數(shù)字25的和是55,而55的平方剛好等于該數(shù)(552=3025)。編程輸出具有這種性質(zhì)的所有四位數(shù),運(yùn)行后界面如圖1-3所示。... 已知四位數(shù)如3025有一個(gè)特殊的性質(zhì):它的前兩位數(shù)字30和后兩位數(shù)字25的和是55,而55的平方剛好等于該數(shù)(552=3025)。編程輸出具有這種性質(zhì)的所有四位數(shù),運(yùn)行后界面如圖1-3所示。 展開(kāi)
1个回答
匿名用户2024-01-29 05:43

Dim?a?As?Integer

Dim?b,?c,?i,?j?As?Integer

Private?Sub?Command1_Click()

Cls

For?i?=?1000?To?9999

a?=?Int(i?/?100)

b?=?i?Mod?100

c?=?a?+?b

If?c?^?2?=?i?Then

Print?i

End?If

Next

End?Sub

相关问答
用VB編程
1个回答2024-02-07 09:35
如果說(shuō)是對(duì)角線就要是正方形數(shù)組i(1 To m,1 To m) Dim a,b As Long Dim s As Long For a=1 to m For b=1 ...
全文
用 VB 編寫(xiě)程序
1个回答2024-02-06 09:19
VB還是適合做個(gè)窗體應(yīng)用程序。 你說(shuō)的功能應(yīng)該是用inputBox實(shí)現(xiàn)或者就是文本框 dim Infomation as string...
全文
VB編程實(shí)例的書(shū)籍有那些?
1个回答2024-08-16 12:17
21天VB游戲編程通 21天VB編程通 都是帶實(shí)例的,我的買(mǎi)的是21天VB游戲編程通
VB程序定時(shí)發(fā)出聲音
1个回答2024-02-06 20:15
下面的函數(shù)能幫你 Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long...
全文
誰(shuí)能教我用VB編惡搞的小程序呀?~
2个回答2023-10-19 17:25
do msgbox"你被我整了~!" loop 慎用~~~~~
VB編寫(xiě)自動(dòng)按鍵
1个回答2024-09-01 07:10
在窗體上放一個(gè)文本框text1,其multiline 屬性值設(shè)為T(mén)rue,scrollbars屬性值設(shè)為2,然后再放3個(gè)定時(shí)器控...
全文
VB考試程序
1个回答2025-01-24 15:19
畫(huà)四個(gè)TEXT 文本,分別輸入A,x,y,z 注意輸入是數(shù)字哦 一個(gè)按鈕。直接復(fù)制代碼到VB中看, (起先有事才沒(méi)回你呢...
全文
關(guān)于VB電大黃文的那個(gè)視頻教程的問(wèn)題
1个回答2024-01-27 00:14
那一集我以前也問(wèn)過(guò)! 不是缺的,是當(dāng)時(shí)錄制的時(shí)候出問(wèn)題了,然后22集又把21的內(nèi)容全錄制了一遍!
VB源程序
1个回答2023-12-21 02:21
查看MSDN
vb代碼編輯器
1个回答2025-01-07 16:06
呵呵,自己試一下比較好一些,標(biāo)準(zhǔn)文本,選定文本,密碼文本,標(biāo)識(shí)符文本,這些的背景色都改為黑色,前景色自己改...
全文
下载手机APP
7天免费畅听10万本会员专辑
热门问答