ldcf.net
当前位置:首页 >> 我想请问一道vB题目 >>

我想请问一道vB题目

Option Base 1这句定义数组下标从1开始, 则x=array(10, 12, 21, 32, 24)后,x(1)=10, x(2)=12,,,x(5)=24,那么执行过程d=d-c=0-10=-10, d=d+x(2)=-10+12=2,d=d+x(3)=2+21=23, d=d+x(4)=23+32=55,d=d-c=55-32=23

1.用VB编程序设计一个简易的计算器 代码: Dim num_1, num2, flagPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Label1.Caption = Label1.Caption + CStr(Command1(Index).Caption) Case 10 Label1.Caption = La...

回答详见图片

Private Sub Command1_Click() Call login(Text1, Text2, Text3, Label4.Caption)End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Label1.Caption = "用户名:" Label2.Caption = "密 码:" Label3.Caption = "...

如题目原文如此,则程序没有问题,完全正确。 具体要看题目的要求。 比如:“奇数日通行”,还是“偶数日限行”?

dim i as integer 在VB6中,integer的最大数字是32767,而随机函数产生的i的起始值是100~999,如果以999计,n取最大值50时,1.08^50约等于47,与i只相乘1次就溢出了。 解决方法是i声明为双精度或货币型(Long也可能溢出,Single不够精确): Dim ...

For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j 对于I而言,可能的因子就是2到i-1,一个个判断,如果发现能整除了,就表示不是素数,退出循环 退出后进行判断,如果j=i就表示没有中间退出,就是素数,把I加到和里就行了。 If j = i The...

Private Sub Form_Load() Show Dim a%, b% a = 200: b = 20 'Text1 = "200" * a / b'字符型数字与整型数据进行非&运算时,被视作数值来进行,但要先算数值型数据,即先算除法,所以不会像D那样产生溢出。结果 text1=2000 'Text1 = a / b * a'作为...

Private Sub Command1_Click()Dim i As IntegerFor i = 11 To 999 If i = StrReverse(i) And i ^ 2 = StrReverse(i ^ 2) And i ^ 3 = StrReverse(i ^ 3) Then Print i, i ^ 2, i ^ 3 End If Next End Sub

Private Sub Form_Click() Dim sum As Integer, a As Integer, fact As Integer a = 1 sum = 1 fact=a Do While a

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com