在vb怎樣實(shí)現(xiàn)四個(gè)數(shù)四則任意運(yùn)算？?jī)蓚€(gè)文本框text1，輸入4，然后運(yùn)算公式text2將顯示結(jié)果。將Microsoft腳本控件1.0添加到零件并在窗體上繪制它。代碼如下：dim x as single

在vb怎樣實(shí)現(xiàn)四個(gè)數(shù)四則任意運(yùn)算？

兩個(gè)文本框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制作一個(gè)四則運(yùn)算的程序？

畫一個(gè)Text1輸入第一個(gè)數(shù)字，畫一個(gè)Text2輸入第一個(gè)數(shù)字第二個(gè)數(shù)字，畫一個(gè)Combo1來(lái)選擇算法，畫一個(gè)command1并點(diǎn)擊它開(kāi)始計(jì)算！鍵入Combo1。添加項(xiàng)“”組合1。添加項(xiàng)“-”組合1。添加項(xiàng)“×”組合1。AddItem“/”命令1。Caption=“計(jì)算”在加載窗體中。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，希望能對(duì)您有所幫助。如果您有任何其他要求或問(wèn)題，請(qǐng)問(wèn)我。