ldcf.net
当前位置:首页 >> VB 题目,求答案,急!!!! (题目在问题补充中) >>

VB 题目,求答案,急!!!! (题目在问题补充中)

创建两个窗口,在窗口1上添加Listbox .Text与Label控件,然后“工具/菜单编辑器”创建菜单。窗口2上添加两个按钮,分别命名为Btn_draw和Btn_comback。完成后输入如下代码: 窗口1代码: Option Explicit Private Sub Menu11_Click() '产生 Dim Int...

第一题选 B 第二题选 D 这些题目是哪里的,感觉写得不够严谨

Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5) End Sub Private Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String str_temp = ""...

Randomize Dim min As Integer: min = 101 Dim max As Integer Dim sum As Integer Dim a(20) As Integer For i = 0 To 19 a(i) = 50 + Int(Rnd * 51) If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) sum = sum + a(i) Next MsgB...

水手分椰子问题 5个水手在椰岛上发现拉一堆椰子:先由第一名水手把椰子分成等量的5堆,还剩下一个 给猴子,自己藏一堆,然后,第二个水手把剩下4堆混合后重新分成等量的5堆。还剩下一个 个猴子,自己藏起一堆,以后第3,4个水手依此办理,最后第...

Dim x%, y% Dim a(1 To 4) As Long Dim t As Long a(1) = Val(Text1.Text) a(2) = Val(Text2.Text) a(3) = Val(Text3.Text) a(4) = Val(Text4.Text) t = 0 For x = 1 To 3 For y = x + 1 To 4 If a(x) > a(y) Then t = a(y) a(y) = a(x) a(x) = ...

private sub command1_click() dim i as integer,n as integer,st as string dim n1 as integer,n2 as integer for i=1 to 10 n=int(rnd*90)+10 st=st & str(n) if n mod=0 then n1=n1+1 else n2=n2+1 endif next i text1.text=st text2.text=n1...

这个很简单的碍… ' 第1题:Private Sub Form_Click() Dim S As Long, V As Long Dim i As Long S = 0 Me.Cls Randomize For i = 1 To 20 V = 10 + 89 * Rnd() If (V Mod 3 = 0) Then Me.Print V S = S + V End If Next Me.Print "能被3整除的数...

你先照个正的图片再说,顺便问清楚你要问哪道题.

1)对 2)对 3)错 4)对 5)对 6)连字符“—” 7)没问题啊 8)也没问题啊 9)也没看出要补充什么 10)5 11)x = Int(Rnd * 101 + 100) If x Mod 5 = 0 Then

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