问一道简单的VB编程题！我没学过！还望大家帮个忙

来源：百度知道 编辑：UC知道 时间：2024/06/17 03:03:23
利用函数，设计一个综合性程序，进行四则运算，用户可以选择任意一种运算功能进行两位数的运算：：1、整个程序包括一个主菜单，菜单上的6个选项，显示如下1.加法2.减法3.乘法4.除法5.显示成绩6.退出2、在菜单中，选择“6.退出”：将退出整个程序，显示内容如下：请选择操作n(1-6):63在菜单中选择“1.加法","2.减法”，“3.乘法”，“4.除法”。按照选项进行加减乘除的运算 ：（1）随即产生两个100以内的整数数字（2）按照选项，进行加减乘除，用户输入答案（3）判断用户答案的正确性，用户有三次输入答案的机会，三次以内，任何一次输入正确都属于答对题目（4）三次后，没有机会再输入答案，屏幕上显示正确答案显示如下：请选择操作n(1-6):1 请选择操作n(1-6):1请输入答案： 请输入答案： 65+59=23 56+48=104对不起，你的答案是错误的 good，你的答案是正确的请输入答案： 65+59=45对不起，你的答案是错误的请输入答案： 65+59=78对不起，你的答案是错误的正确的回答：65+59=1244、在菜单中，选择“5.显示成绩”，将显示做对几题，一共几题，显示如下：请选择操作n(1-6):5你一共做对了2，对了1附：第一题做错3次后会弹出答案，然后出现请选择操作n(1-6)： 就可以进入下一题，这题对了结束后又会弹出请选择操作n(1-6): 这时你选择5的话就会出现：请选择操作n(1-6):5你一共做对了2，对了1
用C语言也是可以的！谢谢大家！

private sign as integer '运算符
private int_Nmb1 as integer '数字1
private int_Nmb2 as integer '数字2
private int_Result as integer '答案
private str_Formula as string '算式
private int_Cout as integer '计数

'-----------------------------------
private sub form_load()
command1.caption="出题"
command2.caption="回答"
text1=""
end sub
'----------------------------
private sub Command1_click()
int_cout=0
dim str_Sign as string
randomize
sign=int(rnd()*4)
int_nmb1=int(rnd()*100)
int_nmb2=int(rnd()*100)
select case sign
case 0
str_sign="+"
int_result=int_nmb1+int_nmb2
case 1
str_sign="-"
if int_nmb1<int_nmb2 then
dim int_tmp as integer
int_tmp=int_nmb1
int_nmb1=int