vb题求助大神b,c整型b=6:c=6.5 a=b=c print a？

vb题求助大神b,c整型b=6:c=6.5 a=b=c print a？

返回 True原因：∵ b 和 c 都是整型数据∴ c = 6.5 一定会对小数点做取舍，而编译器只会对小数点后面大于 0.5 的数做取舍，所以此时 c 会被赋值 6

VB作业题，编写程序，求s=1*2*3*…*n的值。其中n值从键盘上输入，在窗体上输出s值？

Private Sub Command1_Click() n = CInt(InputBox("求N！，请输入N的值：")) s = 1 For i = 2 To n s = s * i Next i MsgBox ("N!=" & s) End Sub

VB程序设计：随机生成20道数学计算题，具体如下，求步骤，代码？

如果不加括号仅有两级运算+-*/的话还是比较简单的。就给个思路，如果你有基础的话应该可以写出来

首先定义几个数组Fun() Num()和一个变量MFun 都是String

Fun()用来存储+-*/，Num()用来存储数字，通过Rnd随机数来确定Num的个数和数值，然后Fun的个数为Num个数-1，同样用rnd来随机分配+-*/。然后MFun(0)=Num(0) & Fun(0) &Num(1) &……这样就得到了一个计算题MFun

接着写一个sub过程来计算计算结果

定义Sum()和MSum 都是double

在这个过程中一个一个的识别Fun(i)，如果是+就将前面Fun(i)直接放进Sum()中，如果是-的就将其作负值运算再放进Sum()，如果是*或者/就与将Fun(i)与Fun(i+1)进行乘除运算的值放入Sum()中。最后MSum(0)=Sum(0)+Sum(1)……

VB编程题：求二维数组a（m,n）中的最大值以及最大值所在的行号和列号，行数m、列数n及数组元素从键盘输入？

Private Sub Command1_Click()

Dim a() As Integer

m = InputBox("请输入行数m:")

n = InputBox("请输入列数n:")

ReDim a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = InputBox("请输入a(" & i & "," & j & ")")

到此，以上就是小编对于高考vb题的问题就介绍到这了，希望介绍关于高考vb题的4点解答对大家有用。