您现在的位置是： 首页 > 教育分析 教育分析
高考vb总结-高考vb框架
tamoadmin 2024-08-07 人已围观
简介1.vb frame的做用是什么?我不太明白,这个控件的作用是?2.VB中如何设计制作一个答题软件vb frame的做用是什么?我不太明白,这个控件的作用是?饿，VB中的Frame，中文名叫做：框架，用来美化的，（事实上，这Frame十分古板，不好看，干脆自己用控件算了）具体如下：OK，讲完了，希望纳，谢谢！VB中如何设计制作一个答题软件两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算
1.vb frame的做用是什么?我不太明白,这个控件的作用是?
2.VB中如何设计制作一个答题软件
vb frame的做用是什么?我不太明白,这个控件的作用是?
饿，VB中的Frame，中文名叫做：框架，用来美化的，（事实上，这Frame十分古板，不好看，干脆自己用控件算了）具体如下：
OK，讲完了，希望纳，谢谢！
VB中如何设计制作一个答题软件
两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算符可以放在数组里面，数组的下标又可以用随机函数取得，则运算符也是随机的，把取得的运算符放在一个标签里 ?如 label1
然后用选择语句 select 来判断label1.caption 中的运算符 ? 是什么运算符 ?自己就做什么样的运算 ?把结果放在一个变量 c 当中 ?
最后用 if 语句判断用户所填的答案与 c 是否相同 ? 相同则正确 ? 不同则错误 ?
代码如下
Dim?i?As?IntegerDim?j?As?Integer
Private?Sub?Command1_Click()
Text1.Text?=?Rnd(1)?*?1000
Text2.Text?=?Rnd(1)?*?1000
Dim?b?As?Integer
Dim?a(4)?As?String
a(1)?=?"+"
a(2)?=?"-"
a(3)?=?"*"
a(4)?=?"/"
b?=?Int((Rnd?*?4)?+?1)
Label1.Caption?=?a(b)
Text3.Text?=?""
Text3.TabIndex?=?"0"
End?Sub
Private?Sub?Command2_Click()
Dim?c?As?Double
Select?Case?Label1.Caption
Case?"+"
c?=?Text1.Text?+?Text2.TextCase?"-"
c?=?Text1.Text?-?Text2.TextCase?"*"
c?=?Text1.Text?*?Text2.TextCase?"/"
c?=?Text1.Text?*?Text2.TextEnd?Select
If?Text1.Text?=?""?Then
MsgBox?"请先选题"
Else
If?Text3.Text?=?""?Then
MsgBox?"请先做题"
Else
If?Text3.Text?=?c?Then
Label6.Caption?=?"正确"
i?=?i?+?1
Else
Label6.Caption?=?"错误"?&?Space(3)?&?"正确结果为"?&?c
j?=?j?+?1
End?If
End?If
End?If
End?Sub
Private?Sub?Command3_Click()
Label7.Caption?=?i
Label8.Caption?=?j
End?Sub
Private?Sub?Form_Load()
End?Sub
