使用VB6 编制一个京东看图猜商品品价格的游戏程序

来源：蜘蛛抓取(WebSpider) 时间：2018-06-15 04:03 标签： 京东看图猜商品
用VB猜几个商品价格程序 用VB分别猜六个不同商品的价格，猜价格过程中，显示高了或低了，制作成成品文件。_百度知道
用VB猜几个商品价格程序 用VB分别猜六个不同商品的价格，猜价格过程中，显示高了或低了，制作成成品文件。
我有更好的答案
'点显示的数字会看到提示，这种问题无需发送邮#件，界面自己做Option ExplicitDim defaultvaluePrivate Sub Command1_Click()
Dim i, j, n, arr(1 To 6), t
For i = 1 To 6
n = Int(21 * Rnd) + 50 '50-70随机数
arr(i) = n
If i & 1 Then
For j = 1 To i - 1
If n = arr(j) Then Exit For
If j & i Then i = i - 1
For i = 1 To 5
For j = i + 1 To 6
If arr(i) & arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t
For i = 1 To 6
Label1(i) = arr(i)
defaultvalue = Label1(Int(6 * Rnd) + 1).Caption
Label1(0).Caption = &&End SubPrivate Sub Form_Load()
For i = 0 To 6
With Label1(i)
.AutoSize = True
.FontBold = True
.FontSize = 16
.ForeColor = vbRed
.Caption = &&
Command1.Caption = &开始&End SubPrivate Sub Label1_Click(Index As Integer)
If Index = 0 Then Exit Sub
If Label1(Index).Caption & defaultvalue Then
Label1(0).Caption = &高&
ElseIf Label1(Index).Caption & defaultvalue Then
Label1(0).Caption = &低&
Label1(0).Caption = &ok！& & defaultvalue
End IfEnd Sub
为您推荐：
其他类似问题
猜价格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB课程设计，猜商品价格_百度知道
VB课程设计，猜商品价格
题目如图，求源代码和界面设计，有现金酬劳
我有更好的答案
这个我可以做。。。。。。。
为您推荐：
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。怎么用C#编写一个猜价格的小程序？_百度知道
怎么用C#编写一个猜价格的小程序？
用C#编写一个猜价格的小程序，要求只能答三次，正确就显示“恭喜答对！领取真知棒一根”错误就继续回答，三次没对，显示“你没有机会了！滚吧”，要求价格要随机生成！请教，怎么编？我们目前只学了C#基本数据类型，常量与变量，表达式，选择语句，循环语句，...
我有更好的答案
int i_random = new Random().Next() % 100;
int i_guess = 0;
int i_count = 0;
Console.WriteLine(&\t\t\t\t猜价格游戏\n\n&);
Console.WriteLine(&\t\t这是一个猜价格游戏，猜1~100之间的随机数\n\n&);
Console.WriteLine(&请输入一个数&); for (i_count = 0; i_count &= 10; i_count++)
i_guess = int.Parse(Console.ReadLine());
if (i_guess & i_random)
Console.WriteLine(&太小了，大一些&);
if (i_guess & i_random)
Console.WriteLine(&太大了，小一些&);
if (i_guess == i_random && i_count &= 3)
Console.WriteLine(&恭喜答对！领取真知棒一根！&);
else if ( i_count & 3)
Console.WriteLine(&你没有机会了！滚吧！&);
Console.WriteLine(&请按游戏菜单，输入 Y 或 N: &);
char i = char.Parse(Console.ReadLine());
if (i == 'Y' || i == 'y')
采纳率：44%
这个。。网上下载吧
( ⊙o⊙ )哇janhoosan 太牛了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
为您推荐：
其他类似问题
您可能关注的内容
猜价格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB程序设计：猜价格游戏_百度知道
VB程序设计：猜价格游戏
要求不少于三关
每关不少于三张图片
求程序代码
我有更好的答案
VB程序设计：猜价格游戏嗯哼，这刚好有哦。
为您推荐：
其他类似问题
您可能关注的内容
学前教育专业的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
用语言编写猜商品价格的游戏程序 程序运行时，首先随机产生一件商品的价格（1~999），然后请运行者猜价格低于商品的价格则程序提示“你给出的价格比实际的低”，若高，则提示“你给出的价格比实际的高”；输入0即可中途退出；猜对了则提示“祝贺你猜对了，这件商品的价格是***元，你猜了***次”，并结束运行；若给出的价格不在范围内，则提示“您给出的价格不在指定的范围内，请重新猜”；改造实验程序：使每次猜价格的次数不超过6次，若运行者经过6次还未猜对，则提示“很抱歉，你已经超过了允许猜的次数”，然后结束运行。
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
Dim cishu As IntegerDim jiage As IntegerPrivate Sub Command1_Click()If cishu > 6 ThenMsgBox "很抱歉，你已经超过了允许猜的次数"EndEnd IfIf Not IsNumeric(Text1.Text) ThenMsgBox "请输入 数字"Exit SubEnd IfIf Val(Text1.Text) > 999 Or Val(Text1.Text) < 1 ThenMsgBox "您给出的价格不在指定的范围内，请重新猜"Exit SubEnd IfIf Val(Text1.Text) > jiage Thencishu = cishu + 1Label1.Caption = "你给出的价格比实际的高"ElseIf Val(Text1.Text) < jiage Thencishu = cishu + 1Label1.Caption = "你给出的价格比实际的低"Elsecishu = cishu + 1Label1.Caption = "祝贺你猜对了，这件商品的价格是" & jiage & "元，你猜了" & cishu & "次"End IfEnd SubPrivate Sub Form_Load()Randomizejiage = Rnd(10) * 999Label3.Caption = jiagecishu = 0End Sub
为您推荐：
扫描下载二维码

我要回帖

更多关于 京东看图猜商品 的文章

 

随机推荐