10.12.01vba填空题

笨巧果发表于: 2010-12-01 22:18 来源: 扑奔PPT网

Private Sub CommandButton1_Click()
If TextBox1.Text = 40 Then
Label1.Caption = "√"
Else
Label1.Caption = "×"
End If
If TextBox2.Text = 54 Then
Label2.Caption = "√"
Else
Label2.Caption = "×"
End If
If TextBox3.Text = 21 Then
Label3.Caption = "√"
Else
Label3.Caption = "×"
End If
End Sub

大家对 10.12.01vba填空题的评论

嫦娥奔月发表于 2010-12-01 22:50:53: Thanks a lot!!

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

18.4 KB, 下载次数: 72)
心的发表于 2010-12-01 23:22:36: 多谢老师！
不过好像不能清空，先交上，回头再补，老师包涵啊

23.1 KB, 下载次数: 53)
火兔发表于 2010-12-01 23:30:56: 没设背景，比较难看。

(2010-12-01 23:30:56, Size: 21 KB, Downloads: 58)

添加了一个“重作”按钮，比较简单，只是将文本框和标签的值设为了空。

(2010-12-02 07:56:16, Size: 19.2 KB, Downloads: 58)

“重作”按钮代码如下：
Private Sub CommandButton1_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

[ 本帖最后由火兔于 2010-12-2 07:56 编辑 ]
心的发表于 2010-12-01 23:32:34: 多谢老师！
不过好像不能清空，先交上，回头再补，老师包涵啊

23.1 KB, 下载次数: 47)
有①点笨发表于 2010-12-12 18:23:51: 看看我的幼儿园小班水平作业但很有成就感谢谢老师！

幻灯片1.GIF

47.9 KB, 下载次数: 56)
卑鄙小人发表于 2010-12-14 21:49:43: 才看到贴赶来交作业。。。。谢谢老师

(2010-12-14 21:49:43, Size: 15 KB, Downloads: 49)

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG
k196011 发表于 2010-12-31 19:26:50: 谢谢分享。代码收藏了。