VB的使用方法求解，求答案VB使用print方法,輸出如下圖形

1樓：匿名使用者

private sub command1_click()dim str1$

str1 = text1.text

text2.text = iif(left(str1, 1) = 7, 1, left(str1, 1)) & mid(str1, 2, 1) & mid(str1, 4, 2) & mid(str1, 3, 1)

text3.text = iif(left(str1, 1) = 7, 2, left(str1, 1)) & mid(str1, 2, 1) & mid(str1, 4, 2) & mid(str1, 3, 1)

text4.text = iif(left(str1, 1) = 7, 3, left(str1, 1)) & mid(str1, 2, 1) & mid(str1, 4, 2) & mid(str1, 3, 1)

end sub

2樓：

private sub command1_click()

dim oo as string, s(5) as string, i as integer

text2.text = ""

text3.text = ""

text4.text = ""

oo = trim(text1.text)

if len(oo) = 5 and val(oo) >= 70000 and val(oo) <= 79999 then '判斷輸入是否為5位數字

for i = 1 to len(oo)

s(i) = mid(oo, i, 1)

text2.text = "1" & s(2) & s(4) & s(5) & s(3)

text3.text = "2" & s(2) & s(4) & s(5) & s(3)

text4.text = "3" & s(2) & s(4) & s(5) & s(3)

else

msgbox "輸入為非首位為7的五位數數字"

end if

end sub

求vb操作技巧 20

3樓：李長舉小童鞋

我敢考完vb，應該來說沒有多少投機取巧的技巧，老老實實背**吧！

求答案vb使用print方法,輸出如下圖形

4樓：匿名使用者

private sub command1_click()print

for i = 1 to 9 step 2print spc(15 - i); string(i, "★"); string(10 - i, "☆"); string(i, "★")

end sub

private sub command2_click()clsend sub

掉坑裡了，剛提交人家已經採納了。

5樓：網海1書生

private sub command1_click()for i = 1 to 5

print spc(2 * (7 - i));

print string(2 * (i - 1) + 1, "★");

print string(2 * (5 - i) + 1, "☆");

print string(2 * (i - 1) + 1, "★")next

end sub

用vb怎麼求餘數?

6樓：娛樂小八卦啊

在vb中運用模運算(mod)進行求餘數。

對於整型數a，b來說，取模運算或者求餘運算的方法都是：

1、求整數商： c = a/b；

2、計算模或者餘數： r = a - c*b。

求模運算和求餘運算在第一步不同: 取餘運算在取c的值時，向0 方向舍入；而取模運算在計算c的值時，向負無窮方向舍入。所謂向0方向舍入，就是以小數點為界限，直接將小數部分去掉。

如（int）-1.324=-1（亦叫截斷法）；

而向負無窮方向舍入，就是最終結果比真實值更小。如（int）-1.324=-2；（int此處是強制轉換資料型別）注意c是指商。

擴充套件資料

通常情況下取模運算(mod)和求餘(rem)運算被混為一談，因為在大多數的程式語言裡，都用』%』符號表示取模或者求餘運算。在這裡要提醒大家要十分注意當前環境下』%』運算子的具體意義，因為在有負數存在的情況下，兩者的結果是不一樣的。

求模運算和求餘運算在第一步不同: 取模求餘運算在取c的值時，向0 方向舍入(fix()函式)；注：fix()函式是matlab中的一種取整函式、截斷函式，直接擷取數字的整數部分。

而求餘取模運算在計算c的值時，向無窮小方向舍入(floor()函式)。

注：floor()函式為向下取整的函式。

7樓：匿名使用者

vb中通過mod方式求餘

比如：dim r as integer '定義一個整型變數rr = 50 mod 4 '求50除以4的餘數，賦值給變數r補充：vb中取餘運算子是mod

8樓：

mod 取餘數。

比如 5 mod 2 = 1

9樓：匿名使用者

用 mod 語句。

dim myresult

myresult = 10 mod 5

print myresult

使用vb求最大公約數的兩種方法是什麼？

在vb用兩種不同的方法求1+1/1!+1/2!

10樓：聽不清啊

private sub command1_click()s = 1

t = 1

for i = 1 to 2

t = t * i

s = s + t

next i

print "s="; s

end sub

private sub command2_click()s = 1

for i = 1 to 2

t = 1

for j = 2 to i

t = t * i

next j

s = s + t

next i

print "s="; s

end sub

VB的使用方法求解，求答案VB使用print方法,輸出如下圖形

在VB中WINSOCK的使用方法

vb中inputbox的功能和使用方法，要詳細的解釋哦

用vb編寫求元素的一維陣列A，使用INPUTBOX函式賦值，輸出最小元素的值及其下標

其他用戶還看了：