急:一道简单的VB编程(高中的信息题目)
“15、已知:□3*6528=3□*8256等式中方框内是同一个数字,求该数字。”最好加上流程图...告诉我代码...都说了,我急.....不定那么高分数,会那么快就有答...
“15、已知:□3 * 6528 = 3□ * 8256 等式中方框内是同一个数字,求该数字。”
最好加上流程图...
告诉我代码...
都说了,我急.....
不定那么高分数,会那么快就有答复吗? 展开
最好加上流程图...
告诉我代码...
都说了,我急.....
不定那么高分数,会那么快就有答复吗? 展开
3个回答
展开全部
Private Sub Command2_Click()
Dim I As Long, J As Long
For I = 0 To 9
If (I * 10 + 3) * 6528 = (30 + I) * 8256 Then Exit For
Next
If I < 10 Then
MsgBox I * 10 + 3 & " * 6528 = " & 30 + I & " * 8356", vbInformation Or vbOKOnly
Else
MsgBox "未找到相应的数据!", vbExclamation Or vbOKOnly
End If
End Sub
Dim I As Long, J As Long
For I = 0 To 9
If (I * 10 + 3) * 6528 = (30 + I) * 8256 Then Exit For
Next
If I < 10 Then
MsgBox I * 10 + 3 & " * 6528 = " & 30 + I & " * 8356", vbInformation Or vbOKOnly
Else
MsgBox "未找到相应的数据!", vbExclamation Or vbOKOnly
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
流程图?这么简单的题目需要么?
for i = 1 to 9
if (i*10 + 3) * 6528 = (30 + i) * 8256 then print i
next i
for i = 1 to 9
if (i*10 + 3) * 6528 = (30 + i) * 8256 then print i
next i
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我不好讲 建议楼主还是多看看书 多做做练习 慢慢 一步步来 急于求成永远是不行的 就这题目也50分??吓我一跳!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询