用VB算圓的面積用文字框輸入半徑點選按鈕以後再另文字框得出結果

2022-03-12 12:47:44 字數 2039 閱讀 7246

1樓:匿名使用者

在form1中依次新增2個文字框和1個按鈕。然後輸入如下**private sub command1_click()dim r as double

if isnumeric(text1.text) thenr = val(text1.text)

if r > 0 then text2.text = str(3.14159265 * r * r)

end if

end sub

執行即可。

2樓:匿名使用者

建立乙個視窗,在文字框中輸入乙個圓的半徑,單擊「面積」按鈕時,文字框中你需要在文字框輸入半徑,是要圖形介面了?其實用c語言就可以了dos介面輸入

3樓:匿名使用者

1、在窗體中拖出兩個文字控制項(textbox)和乙個命令按鈕控制項(commandbutton),半徑輸入框名稱為text1,結果框為text2,命令按鈕名稱為command1;

2、雙擊命令按鈕控制項,在彈出**框內輸入以下**即可;

3、**:

private sub command1_click()dim r, s as single

r = text1.text

s = 3.14 * r * r

text2.text = s

end sub

vb輸入圓的半徑,計算並輸出圓的面積,單擊命令按鈕,呼叫inputbox函式輸入資料,通過msgbox顯示計算結果

vb作業 作業:輸入圓的半徑,計算圓面積和圓周長。計算結果資料型別為單精度型。

vb中怎樣將乙個窗體中文字框中的內容在執行時通過點選按鈕加到另乙個窗體的文字框中?

4樓:匿名使用者

vb中只需在另一窗體的文字框控制項名前加上該窗體名做字首後給與賦值。

option explicit

private sub command1_click()form2.text1 = me.text1end sub

private sub command2_click()form2.show

end sub

private sub form_load()text1 = "vb中只需在另一窗體的文字框控制項名前加上該窗體名做字首後給與賦值。"

end sub

5樓:匿名使用者

form2.text1.text=form1.text1.text

其他控制項也是一樣,加上窗體字首就可以了。

6樓:洒家不戒女色

都是自己寫的程式就 form1.text1.text=form2.text2.text

不是自己寫的程式就用api查詢文字框控制代碼,再傳送文字過去

如何利用vb程式設計,輸入圓的半徑,計算並輸出圓的面積。

7樓:用著追她

1、開啟vb,選擇左邊工具欄的commandbutton。

2、在窗體上拖出乙個按鈕,更改上面的文字為「單擊輸入半徑」。

3、雙擊按鈕,在彈出的code**視窗中,輸入如下**。

4、選擇工具欄中的啟動按鈕進行除錯。

5、單擊按鈕,會彈出乙個對話方塊,在裡面輸入半徑3。

6、會在窗體上列印出計算出的面積的值。

vb6.0在乙個文字框中新增另乙個文字框的輸入,如圖

8樓:網海1書生

private sub command1_click()text3.text = text3.text & "壓強" & text1.

text & "pa  抽速" & text2.text & "l/s" & vbcrlf

end sub

以上**假定「載入」按鈕為command1,「壓強」文字框為text1,「抽速」文字框為text2,輸出文字框為text3

vb:輸入半徑,計算圓周長和圓面積。執行介面如下

vb標籤框和文字框的區別是什麼

標籤框的作用 可以顯示 輸出 文字資訊,但不能輸入文字。文字框的作用 可以輸入文字的顯示區域,既可以輸入也可以輸出文字,並可對文字進行編輯。操作方法如下 1 首先新建乙個工程,新建乙個標準exe工程,如下圖。2 找到工具箱中標籤框,找到後可以直接雙擊控制項,即可成功繪製。3 或者可以使用滑鼠選中它,...

用c編寫猜數遊戲要求使用者在文字框中輸入1到10之間的數

public class myrandompublic bool isright string str else 把所需資料來跟源功能bai封裝到類跟方法中du,然後達到資料跟操作分離,是zhi體現物件導向程式設計的思想dao特徵。用的時候把類例項化,呼叫其中裡面的方法就可以了。random r n...

如何讓文字框中只能輸入0100的數字?包括0和

可以讓文字框只能接收數字 如下 private sub text1 keypress keyascii as integer if keyascii 8 and keyascii 13 then select case chr keyascii case 0 to 9 case else keyas...