UC知道菜鸟询问VB编程题，请大大们帮忙，谢谢！
来源：百度知道 编辑：UC知道 时间：2024/05/30 04:46:12
填空：
1、 求分段函数y的值，当x<0时 y=2x+1；当x>=0时y=1.25，请完成以下程序。
Private Sub Form_click()
X=Val(Inputbox(“”))
Select Case_________
Case___________
Y=2*x+1
Case Else
Y=1.25
End Select
End Sub
2、 窗体上有一个标签和一个计时器，以下程序的作用是，程序运行后，单击窗体，在标签中显示当前的系统时间，每个1秒变换一次，请填空。
Private Sub Form_Click()
Timer1.Interval=________________
End Sub
Private Sub Timer1_Timer()
Label1.Caption=______________
End Sub
编程
1、 用近似公式求自然对数的底数e的值，直到最后一项小于0.0001（10的-4次方）为止。要求输出的结果保留小数点后两位数字。
E≈1+1/1!+1/2!+1/3!+…+1/n!
2、 某商场为了促销，采购物打折优惠活动，每位顾客一次购物：
（1） 满1000元以上者，按95折优惠；
（2） 满2000元以上者，按9折优惠；
（3） 满3000元以上者，按85折优惠；
（4） 满4000元以上者，按8折优惠；
写程序，输入购物款金额，计算并输出优惠价。
3、输入N名同学的成绩，显示于文本框Text1中，按成绩从低到高的次序排序，并将结果显示于另一个文本框Text2中。
1、 求分段函数y的值，当x<0时 y=2x+1；当x>=0时y=1.25，请完成以下程序。
Private Sub Form_click()
X=Val(Inputbox(“”))
Select Case_________
Case___________
Y=2*x+1
Case Else
Y=1.25
End Select
End Sub
2、 窗体上有一个标签和一个计时器，以下程序的作用是，程序运行后，单击窗体，在标签中显示当前的系统时间，每个1秒变换一次，请填空。
Private Sub Form_Click()
Timer1.Interval=________________
End Sub
Private Sub Timer1_Timer()
Label1.Caption=______________
End Sub
编程
1、 用近似公式求自然对数的底数e的值，直到最后一项小于0.0001（10的-4次方）为止。要求输出的结果保留小数点后两位数字。
E≈1+1/1!+1/2!+1/3!+…+1/n!
2、 某商场为了促销，采购物打折优惠活动，每位顾客一次购物：
（1） 满1000元以上者，按95折优惠；
（2） 满2000元以上者，按9折优惠；
（3） 满3000元以上者，按85折优惠；
（4） 满4000元以上者，按8折优惠；
写程序，输入购物款金额，计算并输出优惠价。
3、输入N名同学的成绩，显示于文本框Text1中，按成绩从低到高的次序排序，并将结果显示于另一个文本框Text2中。
编程题请分开问，太多了！
附填空题答案
1、 求分段函数y的值，当x<0时 y=2x+1；当x>=0时y=1.25，请完成以下程序。
Private Sub Form_click()
X=Val(Inputbox(“”))
Select Case___x______
Case______is<0_____
Y=2*x+1
Case Else
Y=1.25
End Select
End Sub
2.Private Sub Form_Click()
Timer1.Interval=_______1000_________
End Sub
Private Sub Timer1_Timer()
Label1.Caption=______Time________
End Sub