vb题目

Question

编写一个VB题目，随机产生两个数和一个运算符（四则运算加减乘除之一），将这两个数进行该运算，输出该运算，暂不输出结果，然后由用户输入结果，并由计算机计算给结果对不对，输出是否正确以及正确结果。如：随机产生两个数12,3和操作符+，输出“12+3=”，然后用户输入15，再输出“正确，15”

Answer 1

看起来不难啊
Rnd函数产生0-1的随机数你卡在哪了？

Answer 2

好吧，其实我学的是C语言，不是VB（也不懂VB），同学让我帮忙做这个题，推了不好看，于是就来论坛请教

Answer 3

Dim r = New Random()
Dim op = Random.Next(0, 4)
Dim strOp As New String(4)
strOp(0) = "+" : strOp(1) = "-" : strOp(2) = "*" : strOp(4) = "/"
Dim x, y, z
If op = 0 Or op = 2 Then
    x = Random.Next(1, 11)
    y = Random.Next(1, 11)
    If op = 0 Then z = x + y Else z = x * y
Else
    If op = 1 Then
        y = Random.Next(1, 11)
        x = y + Random.Next(1, 11)
        z = x - y
    Else
        y = Random.Next(1, 11)
        x = y * Random.Next(1, 11)
        z = x / y
    End If
End If
Console.WriteLine("{0} {1} {2} = ?", x, strOp(op), y)
Dim inputResult = Console.ReadLine()
If Val(inputResult) = z Then 
    Console.WriteLine("正确 " & z)
Else
    Console.WriteLine("错误，应该是 " & z)
End If   

Answer 4

Dim result!
private sub command1_click()'产生表达式，显示在label1上，结果在text1输入。
dim num1%,num2%,nop%,op$
randomize
num1=int(10*rnd+1)
num2=int(10*rnd+1)
nop=int(4*rnd+1)
select case nop
case 1
  op="+":result=num1+num2
case 2
  op="-":result=num1-num2
case 1
  op="x":result=num1*num2
case 1
  op="/":result=num1/num2
end select
label.caption=num1 & op & num2 & "="
end subprivate sub command2_click()'判断
if val(text1)=result then
   msgbox"正确," & result
else
   msgbox"计算错误" 
end if
end sub

Answer 5

弱弱的问一句，怎么用VS2010新建一个VB程序，然后执行

Answer 6

文件-新建-项目如果默认不是VB语言，选择其他语言-VB.NET-Windows控制台程序

Answer 7

/////////出现以下的东西/////////////
Module Module1    Sub Main()    End SubEnd Module
////////////////////////////////////////
应该把3楼或4楼的代码放在哪？？谢谢。麻烦了。

Answer 8

  Sub Main()
     ...
  End Sub这个里面。