写出程序运行结果

写出程序运行结果写出程序运行结果1写出程序运行结果A=3A=a+1B=aA=b+1Printa,bA=1B=2Printa,bA=a+bB=a+bPrinta,b写出程序运行结果A=3A=12当半径改变时，应该修改哪里？PrivateSubForm_Click()r=10s=3.14*r*rPrint"圆的半径：";r;"圆的面积：";sEndsub当半径改变时，应该修改哪里？PrivateSubFor3写出程序运行结果4写出程序运行结果5Inputbox函数格式：inputbox（“提示”，“对话框标题”）参数1参数2赋值语句格式：

变量=表达式

r=10r=inputbox(“请输入圆的半径：”,”输入圆半径”)变量=函数的返回值Inputbox函数参数1参数2赋值语句格式：6函数用法什么是函数？函数是vb系统为了实现常用的功能预先编写好的小程序。

函数用法什么是函数？7VB函数Abs（x）

求x绝对值

Sqr（x）

求x算术平方根

Int（x）

取整函数，求不大于x的最大整数Rnd()

随机函数，产生一个0～1之间的随机数

VB函数8函数的使用方法用户使用时只要按规定的格式写出函数，在程序中使用函数称为调用函数。调用后，一般都有个确定的函数值，即返回值。函数的使用方法用户使用时只要按规定的格式写出函数，在程序中使9在程序中加入红色字体的语句，运行观察结果PrivateSubForm_Click()r=inputbox(“请输入圆的半径：”,”输入圆半径”)s=3.14*r*rPrint"圆的半径：";r;"圆的面积：";s

Circle(1000,1000),rEndsub你可以尝试改动程序中的数字，观察结果发生什么变化通过观察，你知道程序中的数字分别代表什么吗？在程序中加入红色字体的语句，运行观察结果PrivateS10Circle(1000,1000),500X轴Y轴10002000300040001000200030004000Circle(1000,1000),10000Circle(1000,1000),500X轴Y轴1000211画圆语句的格式Circle(x坐标，y坐标 )，半径（2）circle（1000，1000），500（3）X=1000Y=1000R=500Circle(X,Y),R画圆语句的格式12比较两个程序,运行结果相同吗？程序一：r=Inputbox（"请输入一个数"，"圆的半径"）Circle(1000,1000),r程序二：Circle(1000,1000),rr=Inputbox（"请输入一个数"，"圆的半径"）比较两个程序,运行结果相同吗？程序一：程序二：13什么是顺序结构？程序的执行是自上而下的。先执行第一句，然后才是第二句，一直到最后一句。这就是顺序结构。什么是顺序结构？程序的执行是自上而下的。先执行第一句，然后才14开始语句1语句2……语句n结束PrivateSubForm_Click()EndSubr＝Inputbox（"请输入一个数"，"圆的半径"）Circle(1500,1500),r顺序结构流程图开始语句1语句2……语句n结束PrivateSubFor15课后习题补充程序并上机实践：输入一个数，计算出这个数的绝对值，并显示结果X=inputbox(”请输入一个数”,”输入”)Y=_________________Printx;”的绝对值为：“；y课后习题补充程序并上机实践：输入一个数，计算出这个数的绝对值16补充程序并上机实践：随机产生一个1~100的整数PrivateSubForm_Click()X=Rnd（）*100y=___________________PrintyEndSub补充程序并上机实践：随机产生一个1~100的整数17填写程序：输入两个数，然后交换这2个数，并输出交换后的结果。PrivateSubForm_Click()X=inputbox(“请输入第一个数”,”输入”)y=inputbox(“请输入第二个数”,”输入”)____________________________________Print”数据交换后”Print“第一个数为”;x