大佬们！求这两道题的代码

这样的找找就有

参见上个帖子

惯例先吐槽题目：这油价好便宜啊，这是哪一年的题目……

'四则运算程序参考代码（“计算”按钮）
select case combo1.listindex
case 0
text3.text=val(text1.text)+val(text2.text) '加法
case 1
'减法，代码略，参考加法的自己写
case 2
'乘法，代码略，参考加法的自己写
case 3
'除法
if val(text2.text)=0 then
msgbox "除数不能为0！"
else
'计算代码略
endif
end select
'油价计算程序（这个我只能做一部分，“界面上的说明文字”具体是啥？）
'“通用”-“声明”部分
dim p as double
'“90号汽油”单选按钮
p=2.3
'“95号汽油”单选按钮
p=2.45
'“97号汽油”单选按钮
p=2.6
'“计算”按钮
text2.text=p*val(text1.text)