题目内容（请给出正确答案）

[主观题]

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（)。A．TabStopB．E

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是()。

A．TabStop

B．Enabled

C．Visible

D．Tablndex

提问人：网友chjiwa 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上有若干控件，其中有一个名称为Text1的文本框。影响…”相关的问题

第1题

要改变控件的Tab顺序可以修改（）属性值。

A. Visible

B. Enabled

C. TabStop

D. TabIndex

点击查看答案

第2题

tabBar用来配置小程序底部的Tab，它的属性（）是tab 的列表，最少2个、最多5个 tab。

A、color

B、selectedColor

C、borderStyle

D、list

点击查看答案

第3题

窗体上有一个名称为Text1的文本框，名称为Check1的两个复选框构成的控件数组，下标分别为1、2。窗体外观如图所示。

要求在程序运行时，改变复选框选中状态，则文本框中文本的字体做相应变化。为此，某人编写了如下程序代码： Private Sub Check1_Click(Index As Integer) If Index = 1 And Check1(1).Value Then Text1.FontItalic = True Else Text1.FontItalic = False End If If Check1(2).Value = 1 Then Text1.FontBold = True End If If Check1(2).Value = 0 Then Text1.FontBold = False End If End Sub 但是，以上程序在运行中不能完全达到要求，应进行修改，下面正确的修改是_______________。

A、将If Index=1 And Check1(1).Value Then 改为If Check1(1).Value Then

B、将第1个If条件中的Check1(1).Value 改为Check1(1).Value = True

C、将第2个If条件中的Check1(2).Value = 1 改为Check1(2).Value = True

D、将第3个If条件中的Check1(2).Value = 0改为Check1(2).Value = False

点击查看答案

第4题

1. 窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() 　　Static flag As Integer 　　If flag＝0 Then flag＝1 　　flag＝－flag 　　If flag＝1 Then 　　　　Text1.ForeColor＝VBRed　　'为红色　　Else 　　　　Text1.ForeColor＝VBGreen　　'为绿色　　End If End Sub 以下叙述中正确的是(　　)。 A) 每次执行此事件过程时，flag的初始值均为0 B) flag的值只可能取0或1 C) 程序执行后，文本框中的文字每5秒改变一次颜色 D) 程序有逻辑错误，Else分支总也不能被执行

A、A

B、B

C、C

D、D

点击查看答案

第5题

程序功能是在TextBox1（长度≤20）、TextBox2(长度=1)为正确输入;将TextBox1中包含的TextBox2中输入的字符均删除，并显示删除相应信息和结果,操作结果见图。Private Sub Button1_Click(…) Handles Button1.Click Dim s1$, s2$, ns$, i% s1 = TextBox1.Text s2 = TextBox2.Text If （Len(s1) > 20 _____(1)_____） Then MsgBox("TextBox1长度超过20个或TextBox2长度不为1") Exit Sub End If ns = "" For i = 1 To _____(2)_____ If _____(3)_____ Then ns = ns & Mid(s1, i, 1) End If Next TextBox3.Text &= s1 If (_____(4)_____) Then TextBox3.Text &= " 中已删除 " & s2 & " 结果为：" & ns & vbCrLf Else TextBox3.Text &= " 中未找到 " & s2 & vbCrLf End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________ (4)： _________

点击查看答案

第6题

设A="12345678"，则表达式Val(Left(A，4)+Mid(A，4，2))的值为()。

A．123456

B．123445

C．8

D．6

点击查看答案

第7题

VB的3种结构化程序设计的3种基本结构是()。

A.选择结构、过程结构、顺序结构

B.递归结构、选择结构、循环结构

C.过程结构、转向结构、递归结构

D.选择结构、顺序结构、循环结构

点击查看答案

第8题

下列说法错误的是()。

A．在同一模块不同过程中的变量可以同名

B．不同模块中定义的全局变量不可以同名

C．引用另一模块中的全局变量时，必须在变量名前加模块名

D．同一模块中不同级的变量可以同名

点击查看答案

第9题

有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ()。 Private Sub Commandl_lick()

A．25

B．35

C．45

D．55

点击查看答案

第10题

编写如下事件过程和函数过程： Private Sub Form_Chck() DimBum(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 Bum(4)=32:num(5)=-56:num(6)=100 Print Pdnt p2(6,hum()) End Sub Private Function p2(ByVal n As Integer,number()As Single)As Integer p2=

A．-56

B．0

C．103

D．190

点击查看答案