VB练习题(上机)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
VB练习题(上机)
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢vb的问题、求帮下忙 代码怎么写_百度知道
vb的问题、求帮下忙 代码怎么写
按下图设计界面，窗体上有三个单选钮、三个文本框、四个标签控件、两个按钮。其中label1、label2两个标签控件用于显示运算符和等于号，label3、label4两个标签控件显示正确题目的个数和错误题目的个数；单击某个单选钮，产生运算符；单击生成题目按钮，用rnd函数产生两个[1,10]范围内的运算数据；单击判断对错按钮，如果题目做对了，在label3标签控件显示正确题目的个数，如果题目做错了，在label4标签控件显示错误题目的个数；
我有更好的答案
Dim t As Integer, f As Integer
Private Sub Command1_Click()
Text1.Text = Str(Int(Rnd * 10) + 1)
Text2.Text = Str(Int(Rnd * 10) + 1)
Private Sub Command2_Click()
Select Case Trim(Label1.Caption)
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
If Val(Text1.Text) - Val(Text2.Text) = Val(Text3.Text) Then
If Val(Text1.Text) * Val(Text2.Text) = Val(Text3....
Dim a, b As Integer
Dim RtNum, ErNum As Integer '记录答对正确、错误题目的个数
Dim sum As Long
Private Sub Cmd1_Click()
If Label1.Caption && && Then
a = Int(11 * Rnd)
'随机产生100以内的整数
b = Int(11 * Rnd)
Text1.Text = a
Text2.Text = b
Private Sub Cmd2_Click()
If Text1.Text = && Or Text2.Text = && Then
MsgBox &请先出题！&, 64, &友情提示&
Text3.Text = &&
If Text3.Text && && Then
If Label1.Caption = &+& Then
sum = Val(a) + Val(b)
Judeg_num (sum)
ElseIf Label1.Caption = &-& Then
sum = Val(a) - Val(b)
Judeg_num (sum)
ElseIf Label1.Caption = &×& Then
sum = Val(a) * Val(b)
Judeg_num (sum)
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB练习题(上机)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
VB练习题(上机)
大小：615.31KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢vb题求解_百度知道
已知函数sum（k，n）=1k+2k+3k…+nk。计算当k=2,n=5时的结果Private Function Power(a As Integer, b As Integer) As Long
Dim i As Integer, t As Long
For i = 1 To a
t = t * b '第1空
Power = t '第2空End FunctionPrivate Function Sum(k As Integer, n As Integer) As Long
Dim i As Integer, s As Integer
For i = 1 To n
s = s + Power(k, i) '第3空
Sum = sEnd FunctionPrivate Sub Form_Click()
Dim k As Integer, n As Integer, s As Long
s = Sum(2, 5) '第4空
Print sEnd Sub求解释两个function的意思。。。第一个为什么是For i = 1 To a
我有更好的答案
②错了Text2.Text = Str(x)
，改成Text2.Text = Str(max)就行了请采纳。
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁跪求帮忙解几道VB题目(1)7 mod 3+3^3/4\5
(2)2^(-2\1.5)*16 mod 3/2
(3)151\13*(-2) mod -1-3^(3\5/2)
(4)(-(3+2)^2*3)+(6.62-2.2) mod 17.4\2*3.4+8/2^3
(5)(5+6*2)/3
(6)有一个两位数N,要求写出N的十位数字和个位数字_百度作业帮
跪求帮忙解几道VB题目(1)7 mod 3+3^3/4\5
(2)2^(-2\1.5)*16 mod 3/2
(3)151\13*(-2) mod -1-3^(3\5/2)
(4)(-(3+2)^2*3)+(6.62-2.2) mod 17.4\2*3.4+8/2^3
(5)(5+6*2)/3
(6)有一个两位数N,要求写出N的十位数字和个位数字
跪求帮忙解几道VB题目(1)7 mod 3+3^3/4\5
(2)2^(-2\1.5)*16 mod 3/2
(3)151\13*(-2) mod -1-3^(3\5/2)
(4)(-(3+2)^2*3)+(6.62-2.2) mod 17.4\2*3.4+8/2^3
(5)(5+6*2)/3
(6)有一个两位数N,要求写出N的十位数字和个位数字的表达式
(7)写出x被3和7同时整除的表达式
(8)写出x精确到小数点后2位的表达式________
x四舍五入取整的表达式______
x精确到百位的表达式_____
(9)写出随机数[10,20]间的正整数的表达式_______
(10)VB中一行代码最多写几个字符
一行要写多条语句用什么间隔
(11)定义一个订场字符串变量S,长度始终为5
1、 7 mod 3+3^3/4\5=2 2、 2^(-2\1.5)*16 mod 3/2=0 3、 151\13*(-2) mod -1-3^(3\5/2)=-3 4、 (-(3+2)^2*3)+(6.62-2.2) mod 17.4\2*3.4+8/2^3=-74 5、 (5+6*2)/3=5.67 6、 十位数：n \ 10 个位数：n Mod 107、 If x Mod 3 = 0 And x Mod 7 = 0 Then8、 int(x*100)/100(前面的非四舍五入,也可写round(x,2)进行四舍五入) ,round(x) ,(x \ 100) * 1009、 Int(Rnd * 11) + 1010、 1023 ,可用":" 进行分割11、 Dim s As String * 5}