jwbf.net
当前位置:首页 >> 一道vB题求解答 >>

一道vB题求解答

这个程序是求数组中,元素相同个数的最大值。 其中 a(i) = a(j)是判断,计算相同元素的个数。 得到的m是每个元素出现的次数。 其中,3出现的次数最多,所以最终输出出现次数最多的元素值,就是a(0) 也就是3了。

A.softwre and hareware Private Sub Command1_Click() a = "software and hardware" b = Len(a) c = Left(a, 8) MsgBox a, b, c End Sub

232 232 本题已定义A是整型变量(dim A as integer),A%也只是表明A是整型变量, 所以A%同A是同一个变量,把一个浮点数赋值给一个整型变量会自动四舍五入。

第一题 Private Sub Form_Click() Me.Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Me.Label1.Caption = "你双击了窗体" End Sub 第二题 Private Sub Command1_Click() If Me.Command1.Caption = "清屏" Then Me.Cls M...

M(1)=M(1)+1 M(2)=0 M(2)=M(1)+1 M(2)=2 M(1)=M(2)+1 M(2)=2 M(2)=M(2)+2 M(2)=4

赋值语句中,赋值号左边必须是一个变量,而不能是其它表达式。x+y不是一个变量,所以错了。 π不是一个合法的变量名。 3y不是一个合法的变量名。

Private Sub Form_Click() Dim s As String, x As Integer '*************Begin************* x = InputBox("请输入一个数") If x Mod 3 = 0 And x Mod 5 = 0 Then s = "这个数既可以被3整除又可以被5整除" Else s = "不可以" End If Print s '*...

第1题: for i=1 to 4 if i=1 then x=i //x=1 if i

Private Sub Command1_Click() Dim abc(3, 3) As Integer Dim abcMax As Integer Dim abcMin As Integer Dim i As Integer Dim j As Integer Dim iMax As Integer Dim jMax As Integer Dim iMin As Integer Dim jMin As Integer Dim abcSum As I...

在窗体上放置两个标签,分别是label1,label2;在窗体装载事件里面写 Protected Sub Form1_Load() dim ar(9) as integer={25,15,48,75,96,35,87,45,25,69} dim min as integer=ar(0)'用来保存最小数 dim i as integer=0 dim j as integer...

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