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

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

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

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

能发图你不能百度查查?

代码 Dim a As Integer Dim b As Integer Private Sub C1_Click() If a > b Then For i = b To a Sum = Sum + i Next Else For i = a To b Sum = Sum + i Next End If text3.Text = Sum End Sub Private Sub Text1_Click() a = InputBox("请输入...

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) = ...

你这小子,是不是在搞自修啊, 我看到你在网上放了无数个类似的题目啦, 这么简单的问题,自己不动脑筋,光求个答案敷衍教师了事啊 建议大家都不要为这点小分误了程序员这个行当

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

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...

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 = ""...

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

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