• 阵容豪华!《食戟之灵》新作OVA远月十杰声优名单公布 2019-04-20
  • 【理上网来喜迎十九大】郑永年:希望十九大成为中华民族复兴的一个伟大转折点 2019-04-20
  • 巢湖今年首个虾汛开湖 1600多户渔民下湖捕捞 2019-04-13
  • C919首飞机组技术支持团队:和大飞机一起舞动青春 2019-04-09
  • 力度空前!个税起征点提高至每月5000元!还有这些消息与你的钱包有关 2019-04-09
  • 探访“复兴号”:WiFi全覆盖 时速可达400公里 2019-04-05
  • 众演员热血塑造 张鲁一佟丽娅演绎抗战传奇 2019-04-05
  • 运输结构调整 应将交通、环保 与消费保障三目标聚合 2019-04-03
  • 家装行业猫腻多:“低价全包”变身“加价全包” 2019-03-29
  • 3岁小孩骑童车绊倒老人算交通事故警察这样解释 2019-03-27
  • 618线上促销带火了线下 武汉人线下购买力全国第三 2019-03-20
  • 世界文化遗产旅行地中国国家地理网 2019-03-19
  • 25选5星期几开奖时间 www.gjtr.net PRIVATE SUB COMMANDBUTTON1_CLICK() IF TEXTBOX1 = "" OR TEXTBOX3 = "" OR TEXTBOX4 = "" THEN MSGBOX "三项数据必须完整" IF TEXTBOX1.VALUE = "" THEN TEXTBOX1.SETFOCUS IF TEXTBOX3.VALUE = "" THEN TEXTBOX3.SETFOCUS IF TEXTBOX4.VALUE = "" THEN TEXTBOX4.SETFOCUS ELSE END IF A = MSGBOX("结果是:" & TEXTBOX1.VALUE TEXTBOX3.VALUE TEXTBOX4.VALUE, VBOKCANCEL, "计算结果") END SUB 当我明明有一个文本框内为空时,它虽然也弹出了提示窗口,但是它还是继续生成了计算结果的窗口。这是怎么回事呢?我想让它必须在三项都填有数据的情况下才能产生计算结果,应该怎么样修改程序呢?

    设置一个中间变量k来记录是否三项都填有数据,如果填了,k=0,如果没有填,k=1,通过判断k的值来决定是否继续生成计算结果的窗口
    private sub commandbutton1_click()
    dim k as integer
    k = 0
    if textbox1 = "" or textbox3 = "" or textbox4 = "" then
    k = 1
    msgbox "三项数据必须完整"
    if textbox1.value = "" then textbox1.setfocus
    if textbox3.value = "" then textbox3.setfocus
    if textbox4.value = "" then textbox4.setfocus
    else
    end if
    if k = 0 then
    a = msgbox("结果是:"& textbox1.value + textbox3.value + textbox4.value, vbokcancel, "计算结果")
    end if
    end sub

    相关常见问题

  • 阵容豪华!《食戟之灵》新作OVA远月十杰声优名单公布 2019-04-20
  • 【理上网来喜迎十九大】郑永年:希望十九大成为中华民族复兴的一个伟大转折点 2019-04-20
  • 巢湖今年首个虾汛开湖 1600多户渔民下湖捕捞 2019-04-13
  • C919首飞机组技术支持团队:和大飞机一起舞动青春 2019-04-09
  • 力度空前!个税起征点提高至每月5000元!还有这些消息与你的钱包有关 2019-04-09
  • 探访“复兴号”:WiFi全覆盖 时速可达400公里 2019-04-05
  • 众演员热血塑造 张鲁一佟丽娅演绎抗战传奇 2019-04-05
  • 运输结构调整 应将交通、环保 与消费保障三目标聚合 2019-04-03
  • 家装行业猫腻多:“低价全包”变身“加价全包” 2019-03-29
  • 3岁小孩骑童车绊倒老人算交通事故警察这样解释 2019-03-27
  • 618线上促销带火了线下 武汉人线下购买力全国第三 2019-03-20
  • 世界文化遗产旅行地中国国家地理网 2019-03-19