初學(xué)者怎樣看懂代碼 在vb怎樣實(shí)現(xiàn)四個數(shù)四則任意運(yùn)算?
在vb怎樣實(shí)現(xiàn)四個數(shù)四則任意運(yùn)算?兩個文本框text1,輸入4,然后運(yùn)算公式text2將顯示結(jié)果。將Microsoft腳本控件1.0添加到零件并在窗體上繪制它。代碼如下:dim x as single
在vb怎樣實(shí)現(xiàn)四個數(shù)四則任意運(yùn)算?
兩個文本框text1,輸入4,然后運(yùn)算公式text2將顯示結(jié)果。將Microsoft腳本控件1.0添加到零件并在窗體上繪制它。代碼如下:dim x as single,y as single,private sub command1uclick() ScriptControl1.Language=VBScript ScriptControl1.ExecuteStatement x=& x y=ScriptControl1.Eval(Text1.Text) ScriptControl1.Reset Text2.Text=Trim(Str(y)) End sub
怎樣用VB制作一個四則運(yùn)算的程序?
畫一個Text1輸入第一個數(shù)字,畫一個Text2輸入第一個數(shù)字第二個數(shù)字,畫一個Combo1來選擇算法,畫一個command1并點(diǎn)擊它開始計算!鍵入Combo1。添加項(xiàng)“”組合1。添加項(xiàng)“-”組合1。添加項(xiàng)“×”組合1。AddItem“/”命令1。Caption=“計算”在加載窗體中。A型=Val(文本1。文本)B=Val(文本2。文本)選擇案例組合1。Text case“”C=a B case“-”C=a-B case“×”C=a*B case“/”C=a/B end在command1中點(diǎn)擊選擇msgboxc,希望能對您有所幫助。如果您有任何其他要求或問題,請問我。