以下のプログラミングの式を教えていただきたいです。 よろしくお願いします。 ① ax2+bx+c=0が解をもつかどうか判定する． a，b，cの値を入れてボタンを押すと，判別式の値とその値に応じて「２つの実数解あり」，「重解」，「解なし」と表示するプログラムをフォームを使って作成せよ． 判別式 Ｄ＝b2-4ac Ｄ＞０なら２つの実数解あり Ｄ＝０なら重解 Ｄ＜０なら解なし ② 身長をcm単位で入力し，その値によって，服のサイズ「Ｓ」「Ｍ」「Ｌ」「ＬＬ」を表示するプログラムを作成せよ．また，身長をmで入れていた場合は「身長はcmで入力してください．」とメッセージを出す。 50以下の数値ならｍで入れたと判断することとする． Ｓ： 165cm以下 Ｍ： 175cm以下 Ｌ： 185cm以下 ＬＬ： 上記以外 ③ ある郵便局では，小包の郵送料が重さによって次の表のように決まっている． 荷物の重さを入力し，その料金を表示するプログラムを作りなさい． ｇ（グラム）の値で入力することとする． （ｋｇは，ｇに変換してプログラムする．例えば，2kg以下となっている部分は，プログラムには、<=2000と書く．） プログラムの一部 （重さをSingle(実数)型の変数Weight, 郵送料をString(文字型)の変数Chargeとする．） Option Explicit Private Sub CommandButton1_Click() Dim Weight as Single, Charge as String Weight=Textbox1 If Weight <=250 Then Charge="210円" ・・・・ 荷物の重さと料金の表 250g以下 500g以下 1kg以下 1.5kg以下 2kg以下 2.5kg以下 3kg以下 210円 260円 310円 360円 410円 460円 510円 上記以外 取り扱い不可