有关VB的几个简单问题

1.print Val(a)+Val(text1.text),因为a和Text1.Text都是字符,+在字符中间表示两个字. Val()函数是将String型转化为Double型 的函数,可以完美解决这一问题2.选择C,.

简单的VB的问题

Private Sub Form_Click()a = Val(InputBox(＂请输入一个正整数:＂))If a <> Fix(a) ThenMsgBox ＂输入的不是正整数＂Exit SubElseIf a Mod 2 = 0 ThenText1.Text = ＂偶数＂ElseText1.Text = ＂奇数＂End IfEnd If End Sub

一个简单VB编程的问题

在form load的时候,电脑还没有接收到窗体上有text1这个控件的信息,所以会出错,可以把代码放到form active过程里

十分简单的VB问题

'不排序连冒泡都可以省掉 Private Sub Form_Click() Dim arr, i As Integer, j As Integer, t As Integer, max As Integer Cls arr = Array(1, 2, 2, 1) max = arr(0) For i = 0 To UBound(arr) If max < arr(i) Then max = arr(i) Next For i = 0 To UBound(arr) If max = arr(i) Then Print max, NextEnd Sub

VB的简单问题

Option Explicit Private Sub Form_Load() HScroll1.Min = 8 HScroll1.Max = 72 VScroll1.Max = 255 VScroll2.Max = 255 VScroll3.Max = 255 Text1.Text = ＂＂ Label1.Caption .

VB 简单的问题

Private Sub Form_Load()dim aa = int(rnd*100)+1 'rnd 是产生0-1之间的随机函数msgbox aend sub

一些简单的VB问题?

Exp(n)是e的n次方,Log(n)是取n以e为底的对数;Exp 函数的作用和 Log 的作用互补,所以有时也称做反对数. 常数 e 的值大约是 2.718282. Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数.Int 和 Fix 的不同之处在于,如果 number 为负数,则 Int 返回小于或等于 number 的第一个负整数,而 Fix 则会返回大于或等于 number 的第一个负整数.例如,Int 将 -8.4 转换成 -9,而 Fix 将 -8.4 转换成 -8.至于正数,是一样的.

VB 的简单问题

Private Sub Form_Unload(Cancel As Integer) 是当点击窗体的退出按钮时触发的 退出时会生成1个文件 是用来判断写的程序的代码是否按要求运行 这是计算机考试时用的程序里的吧 如果你把这段删除的话就不会生成文件 程序是靠判断那个文件里的内容来给分的 你不用管它

很简单的一个vb问题

Private Sub Form_Click() Me.Cls Dim f() As String, Num, i, k As Double, j() As String Num = Val(InputBox(＂输入数字＂)) f = Split(Text1, Chr(13)) For i = 0 To UBound(f) j = Split(Trim(f(i)), Space(1))For k = 0 To UBound(j)If j(k) = Num Then Print j(0)Next k Next i End Sub

简单的VB问题

private sub command1_click() a = text1.textb = text2.text label1.label = val(text1.text) + val(text2.text) end sub