首页 › 答案 › 题库 › 知到智慧树

未分类

195538编写如下事件过程：Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)If (Button And 3) = 3 Then Print “AAAA”End IfEnd Sub程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为（）。

195539Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Shift = 6 And Button = 2 Then Print “BBBB”End IfEnd Sub程序运行后，为在窗体上输出“BBBB”，应执行操作为（）。

195540在鼠标事件中，语句If Button=2 成立的条件是（）。

195541在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview设置为True（在激活对象上的控件键盘事件之前，优先激活键盘事件,即Form优先）然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click（）Text1.Text=Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll= SaveAll+Chr(KeyAscii)End Sub程序运行后，在键

195542编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出（）。

195543vb 中的坐标圆点位于（）。

195544运行以下程序后,输出的图形是（）。For r=0 To 150 Circle(320,240),r For i=1 To l000 Next i Next r

195545使用 Circle (1000, 1000), 650 语句在窗体上绘制一个圆，则圆的线条颜色由窗体的（）属性决定。

195546设菜单中有一个菜单项为”Open”.若要为该菜单命令设置访问键,即按下ALT及字母O 时,能够执行Open命令,则在菜单编辑器中设置”Open”命令的方式是（）。

195547在窗体上画一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮，并编写如下事件过程：Private Sub Command1_Click（）CommonDialog1.Filter = “all files(.)|.|text files|.txt|bat files(.bat)|.bat”CommonDialog1.filterIndex = 2 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileNameEnd Sub 程序运行后，单击命

195548在窗体上建立一个通用对话框，名称为 CommonDialog1，用下面的语句可以建立一个对话框，CommonDialog1.Action=2与该语句等价的语句是（）：

195549窗体上有一公共对话框Commondialog1,和一个命令按钮Command1,当单击按钮时程序的功能是（）。Private Sub Command1_Click（） Commondialog1.ShowColor End Sub

195550要在图片框P1中打印字符串”How Are You”,应使用语句（）。

195551若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应将该过程放在（）中。

195552下面程序：Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click（） Dim c% c = a(2)End Sub单击两次命令按钮，第二次显示的结果是（）。

195553下面程序的运行结果为（）。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click（） a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a

195554在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a – b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click（） Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End

195555以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a（） As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxval = max End Function Private Sub Command1_Click（） Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd（） 1

195556有如下函数过程：Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y <> 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程，该程序的运行结果是（）。Private Sub Command1_Click（） Dim a As Integer Dim b As Inte

195557有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 y + z + 2 xEnd Function Private Sub Command1_Click（） Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是（）。

195558假定有以下函数过程：Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim Str1 As String Dim Str2 As String Str1 = InputBox(“请输入一个字符

195559假定有如下的Sub过程：Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为（）。

195560要分配存放如下方阵的数据，正确的且最节约存储空间的数组声明语句是（）。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9

195561执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)

195562下列程序的输出结果为（）。 Private Sub Command1_Click（） Dim a ReDim a(6) For j=1 To 5 a(j)=jj Next j Print a(a(2)a(3)-a(4)2)+a(5) End Sub

195563有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（）。

195564有如下语句：Option Base 1Private Sub Command1_Click（） Dim A(2, -1 To 1) As Integer ……End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

195565下面程序：Private Sub Form_Click（） Dim a(100) As Integer For i = 1 To 10 j = i i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（）。

195566执行下面程序段后，输出的结果为（）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s

195567下列的程序段执行后,x的值为（）。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

195568有如下程序,运行后输出的结果是（）。j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n

195569下列程序段的执行结果为（）。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b

195570循环结构For I%= -1 to –17 Step –2 共执行（）次。

195571编写如下事件过程: Private Sub Form_Click（） score=Int(Rnd10)+80 Select Case score Case Is< 60 a$=”F” Case 60 To 69 a$=”D” Case 70 To 79 a$=”C” Case 80 To 89 a$=”B” Case Else a$=”A” End Select Print a$ End Sub 程序运行后,单击窗体,则窗体上显示的内容是（）。

195572下面程序段执行结果为（）。 x = 5 : y = -6If not x > 0 Then x = y – 3 Else y = x + 3End IfPrint x – y; y – x

195573语句If x=1 Then y=1,下列说法正确的是（）。

195574下列程序段的运行结果是（）。Dim A As Integer , B As Integer A = 15 B = 4 Print 4 + A B

195575在一行内写多条语句时，每个语句之间用（）来分隔。

195576下列符号（）是Visual Basic中合法的变量名。

195577表达式4+567/8 Mod 4的值是（）。

195578执行下列语句后，V的值是（）。A=“56789” V=Val（Mid（A，3，2））

195579Visual Basic是一种面向对象的可视化程序设计语言，采取了（）的编程机制。

195580在Visual Basic中，不能关闭的窗口是（）。

195581Visual Basic6.0集成环境的主窗口中不包括（）。

195582下列不是Visual Basic 文件的是（）。

195583（）是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

195584在Visual Basic环境下，当写一个新的Visual Basic程序时，所做的第一件事是（）。

195585智慧树知到《VisualBasic程序设计（吉林医药学院）》2023章节测试答案

195586无压圆管均匀流重力在流动方向的分力与摩擦力相平衡。（）

195587无压圆管过流断面几何要素中，导出量有

195588谢才公式既适用于有压管道均匀流，也适用于明渠均匀流。（）

195589半圆形明渠，半径r=4m，水力半径为

195590有两条梯形断面渠道1和2，已知其流量、边坡系数、底坡和底宽相同，但粗糙系数n1>n2，则其均匀流水深h1和h2的关系为

195591某梯形断面渠道，为使水力最优断面的水深h和底宽b相等，那么边坡系数m应为

195592水力最优断面定义为？

195593智慧树知到《创新创业易点通（白城师范学院）》2023章节测试答案

195594明渠均匀流的水面线与渠底线平行。（）

195595哪种情况可能发生明渠均匀流？

195596对于棱柱型渠道，过流断面面积既随水深改变，又随位置改变。（）

195597淹没出流与自由出流的不同在于上下液位的不同。（）

195598相同条件下，管嘴出流流量大于孔口出流。（）

195599直接水击危害要小于间接水击。（）

195600在孔口外接一管嘴，管嘴的出流量比同样断面积的孔口出流量大，其主要原因是？

‹1…195519561957…3096 ›