高中vb编程例题讲解
一道简单的VB编程题
添加一个TextBox(Text1),一个ListBox(List1),三个按钮(Command1、Command2、Command3)设置List1的Sorted属性为True Private Sub Command1_Click()For i = 0 To List1.ListCount - 1 If Text1.Text = List1.List(i) Then Exit For ElseIf i = List1.ListCount - 1 And List1....
vb编程题1.在窗体上创建一个文本框,当单击文本框时,文本框中轮流显示当...
在窗体上添加一个文本框、一个时钟空间,代码如下:Private Sub Form_Load()Timer1.Enabled = False Timer1.Interval = 1000 Text1.Text = ""End Sub Private Sub Text1_Click()Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Static N As Integer N = N + 1 If N Mod 2 =...
VB编程题,在文本框Text1中输入一个正整数,单击Command1,在Text2...
下面是简单实现,需要带入参数是大于等于1的正数(自己防呆)Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5)End SubPrivate Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String ...
VB编程题:用滚动条输入学生成绩,用文本框显示其等级。即:90~100为优...
新建一个工程,保存。将保存目录中的Form1.frm 用记事本打开,将下列代码粘贴上,保存frm,然后重新打开工程即可。VERSION 5.00 Begin VB.Form Form1 Caption = "学生成绩"ClientHeight = 3165 ClientLeft = 60 ClientTop = 450 ClientWidth = 7725 LinkTopic = ...
vb编程问题,求解答
Const N = 10Private Type Ydy bh As String cj As SingleEnd TypePrivate Sub Form_Click() Dim a(1 To N) As Ydy Dim t As Ydy '输入信息和成绩 For i = 1 To N a(i).bh = InputBox("请输入第" & i & "位运动员编号", "输入运动员编号和成绩") ...
这道VB编程题,怎么做?
Private Sub Command1_Click() Dim i As Integer, n As Integer, a(50) As Integer Open App.Path & "\\1122.txt" For Output As #1 Randomize For i = 1 To 50 a(i) = Int(Rnd * 90 + 10) Print #1, a(i) & " "; Next i Close #1 MsgBox "写...
一个vb编程问题
CommonDialog 控件是一种ActiveX控件,一般情况下,启动VB后,在工具箱中没有公用对话框控件。要使用对话框控件,首先要在工具箱中添加公用对话框控件,步骤如下:1)“工程”--->“部件”:2)在“部件”对话框中选择“控件”选项卡,在控件列表框中选择“Microsoft common Dialog control 6.0"3)单击“确定”,公用对话...
vb编程 求帮助。最好详细讲解。
Do While K<=3 k = k + 1 s = s + k Loop 当K<=3的时候,执行循环,否则结束循环:第1次:k = 0,满足k<=3,执行循环:k = k + 1 ==> k = 0 + 1==> k = 1 s = s + k ==> s = 0 + 1==> s = 1 第2次:k = 1,满足k<=3,执行循环:k = k + ...
VB编程:单击command1,则随机产生10个0~100之间的数值,将之保存到一维数...
command2_click()dim b as integer,i as integer,c as boolean b=val(inputbox("请输入一个数字"))c=false for i=0 to 9 if b=a(i) then c=true exit for end if next if c=false then text2.text="不存在于数组中" else text2.text="在数组中的位置=" & i+1 end sub ...
一道VB编程题
创建3个文本框,第一个输入年,第二个输入月,第三个输入日。用year(now),month(now),day(now)分别返回当前年月日。用year(now)-学生生日即可得到年龄,如果想要准确的周岁生日,再比较月,日就行了。用inputbox也可以 a=inputbox("输入学生生日-年")b=inputbox("输入学生生日-月")c=input...
靖宇县绪络回答:[答案] a=XX b=YY c=MM if a>b then max=a else max=b end if if c>max then max=c end if
离饶15611046487问: 会vb的看一下!简单的高中编程题目? - ?
靖宇县绪络回答: Private Sub Command1_Click() Text2.Text = Sqr(2 * (Text1.Text) * 9.8) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 46 Or (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Then Else KeyAscii = 0 End If End Sub
离饶15611046487问: 如何用VB程序设计做出下列题?编程题第1题某四位数ABCD能够被78整除,它的千位数字与百位数字相同,十位数字与个位数字相同(即:A=B,B=D),... - ?
靖宇县绪络回答:[答案] Private Sub Command1_Click() Dim a, b, c, d For a = 1 To 9 For c = 0 To 9 b = a d = c If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d Next Next End Sub 答案是7722
离饶15611046487问: vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除用vb编程解决 - ?
靖宇县绪络回答:[答案] Private Sub Command1_Click() Dim a, b, c As Integer Dim max Randomize a = Int(900 * Rnd + 100) b = Int(900 * Rnd + 100) c = Int(900 * Rnd + 100) Print a, b, c max = a If b > max Then max = b If c > max Then max = c Print "最大数是"; max End ...
离饶15611046487问: vb例题:任意输入一个整数,编写程序判断该整数的奇偶数 - ?
靖宇县绪络回答:[答案] if x mod 2 =0 then msgbox "是偶数" else msgbox "是奇数"
离饶15611046487问: 高中会考VB程序中的题~!要详细的解答过程.?
靖宇县绪络回答: 1.在VB程序中有以下程序段,语句Print "VB"的执行次数是 For i=1 To 3 Step 2 'step即步长,循环变量的增量,步长为1,可省略不写 Print "VB" Next i 答2次 for循环, 首先把初值1赋给循环变量i,接着检查“循环变量”的值是否大于终值...
离饶15611046487问: 求解:两道计算机VB编程题目枚举法:2、一个4位整数分为前后两个两位数,若该数等于所分两个两位数和的平方,则称该数为分段和平方数,如2025=(20... - ?
靖宇县绪络回答:[答案] 2、(1)穷举法,列出从1000到9999所有的4位数,分别测试其是否等于所分两个两位数和的平方.(2)计算结果:2025=(20+25)^23025=(30+25)^29810=(98+10)^2(3)代码如下:Private Sub Command1_Click()For i = 1000 To 9999 ...
离饶15611046487问: 高中vb的题 现有程序如下: k= - 20 do while (k=0) k=k+1 loop 说法不正确的是( ). - ?
靖宇县绪络回答:[选项] A. do while 语句执行了20次 B. While 循环是无限循环 C. 循环体语句一次也不执行 D. 循环体语句执行一次
离饶15611046487问: VB编程题目,求详解(过程、步骤、文字说明)写得好追加分数 - ?
靖宇县绪络回答: 首先 第一层循环 执行3次 因为i = 1 to 3 所以 第二层循环 1 to 1 1 to 2 1 to 3 一共执行1+2+3 = 6次 那么最后一层就执行1 to 3, 1 to 3 2 to 3, 1 to 3 2 to 3 3 to 3,一共执行 3+3+2+3+2+1=14次 a = a+1 未对a初始化 所以a就为 0 因为执行14次循环 a = a+1是对a进行+1的累加 所以a = 14 再输出a 所以输出14 希望能帮助到你 不懂欢迎追问!
离饶15611046487问: vb程序设计例题 - ?
靖宇县绪络回答: 修改好了测试成功,但是,基本上,偶数和会大于所有的数 Private Sub Command1_Click() Dim a(10) As Double Dim t As Double Randomize For i = 1 To 10 a(i) = Int(Rnd * 100 + 2) '设十个数,给十个数随机赋值 If a(i) Mod 2 = 0 Then t = t + a(i): Print "偶数为"; a(i) Next i Print "偶数的和为"; t For i = 1 To 10 If a(i) < t Then Print "小于偶数和的数"; a(i) Next i End Sub