1樓:爽朗的小可愛們
設這個數是num
int data[10];
int count = 0;
dowhile(num!=0);
int i;
for(i = count - 1;i >= 0;i++)
2樓:匿名使用者
while x>____9_____
3樓:匿名使用者
while x > x \ 10 ^ (len(trim(str(x))))
[vb]輸入乙個合法的3位正整數,測試其數值合法性後,逆序輸出並顯示,例如,輸入"734",輸出是"437",如圖1所示
4樓:滿以柳
假如:輸入數字的 textbox 控制項名稱為 txtnum1,輸出用 textbox 的名稱為 txtnum2
1、判斷 txtnum1 是否為數字的程式如下if trim(txtnum1) = "" then exit sub
if not isnumeric(txtnum1) thenmsgbox "請輸入數字!"
txtnum1.setfocus
end if
2、實現逆序的程式如下
dim maxnum as long
dim i as long
dim strn1 as string
dim strn2 as string
maxnum = len(trim(txtnum1))strn1 = str(trim(txtnum1))for i = maxnum + 1 to 2 step -1strn2 = strn2 + mid$(strn1, i, 1)next
txtnum2 = strn2
在實現「逆序」程式中,我是把輸入內容按字串進行處理的,原因主要是(1)、不知道輸入數字長度的大小,
(2)、如果數字最後一位是0的話,也能明確看到結果。
3、如果你確定輸入是三位數字的話,直接轉換:
txtnum2 = (txtnum1 mod 10) * 100 + ((txtnum1 mod 100) \ 10) * 10 + (txtnum1 \ 100)
希望對你有參考價值...
5樓:livingroom寶貝
(1)if keycode=13 thenif isnumeric(text1.text)=true thenif val(text1.text)<100 or val(text1.
text)>999 then
msgbox "你輸入的整數不合法 100-999"
exit sub
else
msgbox "輸入合法"
end if
end if
(2)private sub command1_click()dim a as integer, b as integer, c as integer
dim i as integer, j as stringi = 100 + int(rnd * 900)a = int(i / 100)
b = i mod 100
c = b mod 10
b = int(b / 10)
j = c & b & a
msgbox i & "," & j
end sub
vb的程式設計,輸入任意的乙個正整數 要把它逆序輸出?
6樓:殳妮素清一
private
subform_load()
dimi
asinteger
dimtemp
asinteger
dimresult
asstring
randomize
fori=1
to3temp
=rnd*10
iftemp=10
then
temp=1
result
=result
&trim(str(temp))
next
"隨機數:"&
result
"反轉後:"
&strreverse(result)
endsub
如何設計乙個vb程式,將從鍵盤輸入的四位整數逆序輸出
7樓:
不知道你是不是這樣意思,假如你在文字框中依次輸入1,2,3,4,最後文字框中顯示的是4321。如果是這樣,**如下:
private sub text1_keypress(keyascii as integer)
text1.selstart = 0
end sub
這段**很簡單,滑鼠游標在任何位置輸入都能自動回到首位。。。
8樓:匿名使用者
你是事先輸入儲存在textbox裡還是直接用鍵盤輸入儲存在變數裡?
最後輸出在什麼地方?
vb 隨機產生乙個三位正整數,然後逆序輸出,產生的隨機數與逆序數同時顯示。例如:357和753
9樓:宛丘山人
你的程式可以說是正確的,並且還有一定技巧,比如用rnd *900加100。580逆序結果從數值上看就是85,因此也很正確。如果要求顯示085,說明要求以字元形式輸出只需改動i句(倒數第四句)即可。
我無法用鍵盤輸入,很多符號打不上,請原諒。
10樓:匿名使用者
i為整型的話,fromat的結果賦值給i又轉為數字了,自然棄首位0要麼dim i as string
要麼不要i直接print format(val(x3 & x2 & x1), "000")的結果
另xi x2 x3均定義為整型,但後面又用x3 & x2 & x1這樣隱式轉換成字串,這個習慣不好,也就是vb裡對變數型別要求不嚴格才能用,之前不顯示0同樣是因為不重視變數型別而依賴自動轉換造成的
vb程式設計:輸入一合法的3位正整數,先後逆序輸出並顯示。如:輸入「128」,輸出「821」
11樓:兼程
注意只是用第一行第一列的單元格說明,**如下:
private sub commandbutton1_click()dim i as integer
dim s as string
s = activesheet.cells(1, 1)if isnumeric(s) = true thens = strreverse(s)
msgbox s
'或者 activesheet.cells(1, 1)= selse
msgbox "is not numeric"
end if
end sub
12樓:匿名使用者
vb我沒用過,不過如果你能懂c語言或者c#可以幫你寫乙個。
13樓:紅山人
供參考。朋友。有疑請追問。
private sub form_click()dim s as string
s = text1
if isnumeric(s) then
text1 = strreverse(s)else
msgbox "輸入了非數字字元!"
text1 = ""
end if
end sub
求編乙個vb程式?輸入乙個三位整數,然後將它反向輸出?
從鍵盤輸入整數判斷它是否為素數,從鍵盤輸入乙個整數,判斷它是否為素數
演算法如下 已執行通過 include iostream.h include math.h define n 1000 bool fun int n void main 補充一下,求素數的方法還是有很多的,比如 1 遍歷2以上n的平方根以下的每乙個整數,是不是能整除n 這是最基本的方法 2 遍歷2以...
VB怎麼實現鍵盤輸入,新手問題,怎樣用VB模擬鍵盤輸入
如下 private sub form keydown keycode as integer,shift as integer select case keycode case vbkeynumpad0 command1 click 這段就是按鈕1點選,等價於你在窗體上點了一下按鈕,把它改成你設定的...
用VB寫小程式可以代替鍵盤輸入,用VB寫乙個小程式可以代替鍵盤輸入
真長啊 private sub command3 click dim i as long 單擊後等同於如下效果 1 按鍵盤的 alt tab 是先按alt然後不鬆開alt按tab 目的就是為了切換 sendkeys 2 按鍵盤的 tab 4下 for i 1 to 4 sendkeys next i...
PASCAL從鍵盤輸入長度不超過40的字串,按要求進行刪除。求大師講解,給五十分
var s string i,j,l integer c1,c2 char found boolean begin readln s l length s found false read c1 if c1 d then begin read c2,c2 i pos c2,s if i 0 then...
C語言問題,從鍵盤輸入n個英語單詞。輸入格式為n,w1,w2,w3 wn,其中n表示隨後輸入的英語
我提供個思路,你可以用遞迴的方式解這個問題。如果m 10,w1 1,則如果w1為滿足的若干件其中之一的話,則需要其他加起來為m w1,以此類推,直到w1到wn中有滿足的,且沒有重複的為止 include include include typedef struct link link void in...