[训练]VB简单编程题
VB简单编程题
1(计算平方值与圆面积
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算输入值的平方数和以此值为半径的圆面积。
在文本框“Text1”中输入一个数值,单击“计算”按钮使文本框“Text2”、“Text3”分别显示该数值的平方值和以该数值为半径圆的面积。
提示:π=3.14,S=πR^2;
单击“清除”按钮,则清掉上述三个文本框的所有内容;
单击“退出”按钮,则退出程序。
要求完成的内容:“计算”、“清除”两个按钮的代码。
2(求偶数和
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算N范围内偶数的和。
在文本框“Text1”中输入一个数值N,单击“计算”按钮使标签Label2.Caption显示以下计算值P: P=2+4+6+...+N ;
单击“结束”按钮,则退出程序。
要求完成的内容:“计算”命令按钮的代码。
3(求1000以内偶数和
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该
编程项目。(窗体界面同上)
程序功能:计算不大于1000的数值N范围内偶数和。
在文本框“Text1”中输入一个不大于1000的数值N,单击“计算”按钮使标签Label2.Caption显示以下计算值P: P=2+4+6+„„+N ;
单击“结束”按钮,则退出程序。
要求完成的内容:“计算”命令按钮的代码中关于输入数值限制及超出限制时“N值超出范围,请重新输入~”的提示。
4(十进制数转换为二进制数
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:将输入的十进制数转换为二进制数。
在文本框“Text1”中输入一个十进制数sj,单击“计算”按钮使文本框“Text2”显示二进制数ej;
单击“清除”按钮,则清除文本框的数值;
单击“结束”按钮,则退出程序。
要求完成的内容:十进制转换成二进制用的是“除以2取余数法”,余数逆序排列即为二进制数的值。“计算”命令按钮的代码中需要完成循环体内的程序代码(编写在单击“转换”按钮代码段中Do——Loop之间)。
5(将摄氏温度转换为华氏温度
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:将摄氏温度转换为华氏温度。
在文本框“Text1”中输入一个摄氏温度值N,单击“转换”按钮使标签Label3.Caption显示该摄氏温度转换为华氏温度的值;
单击“退出”按钮,则退出程序。
提示:摄氏温度(?)和华氏温度(F)之间的换算关系为:
F=9/5?+32, 或 ?=5/9(F-32)
请编写两个按钮的代码,在标签label3位置显示转换出来的华氏温度。
6(并联电阻值的计算
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算两个电阻并联后的值。
在文本框“Text1”、“Text2”中输入电阻值1、电阻值2,单击“计算”按钮使文本框“Text3”显示两电阻并联的值,保留2位小数。
提示:已知电阻并联值为:1/R3 = 1/R1 + 1/R2
请编写“计算”按钮的代码。
7(求并联的电阻需配值
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:根据已有电阻和需要电阻,计算另一个并联电阻的值。
在文本框“Text1”、“Text2”中输入已有电阻值1和要求电阻值,单击“计算”按钮使文本框“Text3”显示需配并联电阻的值,保留2位小数。
提示:已知电阻并联值为:1/R3 = 1/R1 + 1/R2
请编写“计算”按钮的代码。
8(利率的计算
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算存款的本息。
在文本框“Text1”中输入存入款值,文本框“Text2”中输入存入年限值,单击“计算”按钮,按照输入存款额和存入年数,假定银行存款年利率为2.8%,计算本息总数。
要求完成“计算”按钮代码,实现所要求的功能。
9(出租车车费
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算出租汽车车费。
在文本框“Text1”中输入行驶里程的千米值,按照起步价12元,3千米,续距费用为每千米2.4元,忽略等候及其他费用,单击“计算”按钮,求车费,见分进元。
请完成“计算”按钮的程序代码。
10(解一元二次方程
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:这是一个一元二次方程求解程序。
在文本框中依次分别输入一元二次方程
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
式的系数A、B、C,单击“计算”按钮,输出解X1、X2,或在X1位置输出“本题无实数解”,单击“清除”按钮则清除各文本框内容,单击“退出”在退出程序。
提示:一元二次方程求根公式:X = ( ( -b ? sqr( b^2 - 4ac ) ) / 2a
请完成“计算”按钮的代码。