Private Sub Command1_Click() Dim a As Long a = 1234 a& = 4567 Print a; a& End Sub

相关推荐

• 我用vb写了一个计算长方形~正方形或三角形面积的程序~代码如下~怎样修改啊~Private Sub Command1_Click()Dim a As StringDim h,l,s As Singlea = InputBox("请输入形状（只限于长方形~正方形或三角形）","请输入")If (a = "长方形" Or "正方形") Thenh = InputBox("请输入宽","请输入")l = InputBox("请输入长","请输入")s = h * lPrint a; "的面积为"; sElseh = InputBox("请输入的高","请输入")l = InputBox("请输入的底","请输入")s = h * l / 2Print a; "的面积为"; sEnd IfMsgBox "计算完毕",,"提示"End Sub
• 在窗体上有一个命令按钮Commandl,编写事件代码如下：Private Sub Command1_Click()Dim x As Integer,y As Integerx = 12:y = 32Call Proc(x,y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer,ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后,单击命令按钮,立即窗口上输出的结果是A）2 32 B）12 3 C）2 2 D）12 32
• 利用for语句Question：我国现在有人口13亿,按人口年增长率0.8%计算,多少年后我国人口超过26亿?我是一个初学者,如下是我自己编写的,其中我所知道出现的问题是,此题目中我并不知道循环多少年才会得出26亿结果,所以我就在第五行中直接写的1 to 100 的范围.①请问用For 语句如何表示未知的循环次数.②请问如下编写的语句都有什么问题,结果是否正确.Private Sub Command1_Click()Dim a,b,p,cp = 13c = 26For a = 1 To 100b = p * 1.008 ^ aIf Round(b,0) = c ThenExit ForEnd IfNext aprint a&"亿"End Sub不用告诉我用别的循环语句简单也能做,我 知道 但这是问题中要求用FOR语句做.
• vb用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之：private sub command1_click()dim m as integer,n as integerdim a as integer,b as integerdim r as integer m = inputbox("输入m")m = inputbox("输入n")a=mb=ndor=____m=nn=rloop____print a;"和"b;"最大公约数是";______print a;"和"b;"最小公倍数是";______end sub
• Private Sub Command1_Click() Dim a As Long a = 1234 a& = 4567 Print a; a& End Sub
• 麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4:y = 5:z = 6End SubPrivate Sub Command1_Click()Dim x As Integer,y As Integerx = 1:y = 2:z = 3Print x,y,zCall pl(y,z)Print x,y,zEnd Sub
• vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = InputBox("请输入一个正整数： ")Print Fac(n)End SubPrivate Function Fac(m) As Long '' '请不要删除该行,只在下一行中填空' For k = 2 to Fac = Fac * kNext kEnd Function
• vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题Private Sub Command1_Click() Dim a%, b%, c%, i%, k% k = 0 For i = 100 To 999 a = i Mod 10 b = (i Mod 100) \ 10 c = i \ 100 If a + b + c = 10 Then k = k + 1 Print Tab((k Mod 5) * 8); i End If Next iEnd Sub这个输出的数据时斜着排列的,哪有问题?求高手不好意思,我会了
• vb随机产生10个两位数随机正整数,求其中素数之和（用过程实现判断一个数是否是素数）Private Sub Command1_Click()Dim a As Integer, r As Integer, s As Integers = 0For a = 1 To 10r = Int(90 * Rnd + 10)Print r;If f = True Then s = s + rNext aPrintPrint "其中素数的总和="; sEnd SubPublic Function su(i As Integer, n As Integer) As BooleanDim f As BooleanFor i = 2 To n - 1If n Mod i = 0 Thenf = FalseExit ForEnd IfNext iIf i f = TruePrint r;End IfEnd Function
• 小英读一本小说,3天读了54页,照这样计算,8天正好读完.这本小说书有多少页?（用比例解）
• 椭圆x24+y2m＝1的离心率e∈[22，1)，则m的取值范围为_．