ndIfPrint"y=";yEndSub必修2_16、编写程序,求y=6x-5的值。(x的值在程序中调用InputBox函数,在弹出的标准输入对话框中输入)程序:PrivateSubForm_Click()DimxAsSingleDimyAsSinglex=Val(InputBox(“请输入变量x”))y=6*x–5Print“y=”;EndSub必修3_16、一只猴子摘了一堆桃子,它每天吃当天桃子数的一半,每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了,编程计算猴子最初共有多少个桃子。完成所有操作后,诸按“Ctrl+S”保存。程序:PrivateSubForm_Click()DimiAsIntegerDimsAsIntegers=1Fori=1To9s=(s+1)*2NextPrint“s=”;sEndSub必修4_16、完善按钮“计算7!”的Click事件程序,当单击命令按钮时Text1显示7!的值。mand1_Click()DimaAsIntegerDimiAsIntegera=1Fori=1To7a=a*iNextiText1.Text=aEndSub必修5_16、请将按钮"计算1+2+……+100"的Click事件程序中的"常量"和"变量"换成正确的常量和变量,当单击命令按钮时Text1显示1+2+"""+100的值。完成所有操作后,诸按“Ctrl+S”保存。mand1_Click()DimaAsIntegerDimIAsIntegera=0Fori=1To100a=a+iNextiText1.Text=a必修4_18、编写程序,当在Textl中输入x的值后,单击计算按钮,求y=|3x-5|的值。mand1_Click()DimxAsSingleDimyAsSinglex=Text1.Texty=Abs(3*x-5)Text2.Text=yEndSub
全文预览