MSFlexGrid1.AddItem strtmp,i ADOrs.MoveNext Loop MSFlexGrid1.FixedRows =1 End Sub Private Sub Form_Load() [5] End Sub 得 分 评卷人 五、编写程序题（共15分） 31.请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折 的优惠办法，每位顾客一次购物(1)在500元以上者，按九五折优惠；(2)在700元以上者，按九 折优惠：(3)900元以上者，按八折优惠；(4)1500元以上者按七折优惠。在窗体上添加两个文 本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出 优惠价。程序运行结果如图3所示。 购物优惠程序 惠价为 400 1120 图3 1424MSFlexGridl. AddItem strtmp , i ADOrs. MoveNext Loop MSFlexGridl. FixedRows = 1 End Sub Private Sub Form_LoadO [5J End Sub |得分|评卷人| I I I 五、编写程序题{共 5分} 1. 据下 描述 写购 程序 促成 流通 物打折 的优惠办法，每位顾客一次购物。〉在 0元以上者，按九五折优惠川 )在 7 0 0元以上者，按丸 折优惠 0元以上者，按八折优惠川。 5 0 0元以上者按七折优惠。在窗体上添加两个文 本框和一个命令按钮，要求在 xt!中输入购物商品总金额，单击命令按钮，在 2中输出 优惠价。程序运行结果如图 3所示。 1424