![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
vb.netでテキストボックスを2つ、ボタンとラベルを1つずつ用意し、
ボタンを押すと関数「 calcDivide」が割り算を行う(引数はInteger型を二つ使い、戻り値はDouble画型を使う)というコードを書いたのですが、割り算処理が行われません。
下記のコードでどこが間違っているかを教えてください。
Public Class Form1
Public Function calcDivide(ByVal no1 As Integer, ByVal no2 As Integer) As Double
Dim tb1 As Double
Dim tb2 As Double
TextBox1.Text = tb1
TextBox2.Text = tb2
Return tb1 / tb2
End Function
Private Sub Button1_Click(ByVal bsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tb1 As Double
Dim tb2 As Double
calcDivide(tb1, tb2)
End Sub
End Class
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
テキストボックスの1,2の内容を割り算するなら
引数はいりませんよ
tb1=textbox1.text
tb2=textbox2.text
というように変数に代入します。
ただし、てきすとぼっくすが数字でない場合の処理も必要です。
Dim tb1 As Double
Dim tb2 As Double
tb1 = IIf(IsNumeric(TextBox1.Text), CDbl(TextBox1.Text), 0)
tb2 = IIf(IsNumeric(TextBox2.Text), CDbl(TextBox2.Text), 0)
If tb2 <> 0 Then
Return tb1 / tb2
Else
'0除算
return 0
End If
ご回答ありがとうございます。現在、vb.netの演算問題を解いており、関数で除算することが条件なので、できればそのやり方を教えてほしいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:13
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- 数学 単振り子とルンゲ・タック法 1 2022/07/15 00:05
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Excel(エクセル) excel2013 色付きセルの値合計 3 2023/02/28 11:48
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで1と入力すると〇倍 2...
-
なんでa₁b₁を分けて考えないと...
-
EXCELで2つの数値のうち大きい...
-
Excelの表示についての質問
-
Excelで隣のセルと同じ内容に列...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセル(勝手に太字になる)
-
エクセルでの複数条件下での標...
-
エクセルで、2種類のデータを...
-
VBAで文字列を数値に変換したい
-
Excel関数:「0」を除いた標準...
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
お店に入るために行列に並んで...
-
SUMIFとCOUNTIFを合わせたよう...
-
Excelで半角の文字を含むセルを...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセルの項目軸を左寄せにしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで1と入力すると〇倍 2...
-
5元連立方程式を解きたい
-
なんでa₁b₁を分けて考えないと...
-
Σa[n]/Σb[n]に関する不等式
-
このような関数はどのように作...
-
最小二乗法での指数関数の計算
-
|(x-a1)/b1|>|(x-a2)/b2|を満た...
-
大好きなソフト(めも電卓ver0.9...
-
vlookup関数でエラー表示を空白...
-
数II・Bの数列の問題です a1+a3+...
-
vb.net 関数での割り算
-
エクセルでA1のセルの文字に...
-
この問題の解き方を教えて欲し...
-
ベクトルの内積を考えるとき、θ...
-
エクセルのVBA 条件分岐を...
-
Maximaで非可換代数計算を行う方法
-
エントロピーを求める問題
-
箱桁の重心位置の公式
-
再投稿ですいません。前の質問...
-
エクセルのVBAで範囲指定に変数...
おすすめ情報
ご回答ありがとうございます。よろしければ、上記のコードをどう訂正すればよいのかを具体的に教えてください。