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

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

水手分椰子问题 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...

这个很简单的碍… ' 第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整除的数...

dim grade,snum,mark snum=text1.text '学号 text2.text=left(snum,2) '年级 mark=right(left(snum,5),1) select case int(mark) case 2 text3.text=" 博士生" case 3 text3.text=" 硕士生" case 4 text3.text=" 本科生" case 5 text3.text=" 专...

Private Sub Command1_Click()Dim i As IntegerFor i = 11 To 999 If i = StrReverse(i) And i ^ 2 = StrReverse(i ^ 2) And i ^ 3 = StrReverse(i ^ 3) Then Print i, i ^ 2, i ^ 3 End If Next End Sub

Shift 的设置如下: 1 按下 Shift 2 按下 Ctrl 4 按下 Alt 这几个是Mask值,因为有可能同时按下两个或三个键,所以需要用掩码分别检测。

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